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Preface 


Every  good  book  begins  with  a  bit  of  historical 
perspective,  as  does  this  one,  although  it  does  not 
necessarily  follow  that  this  is  a  good  book.  How- 
ever, the  phenomenal  success  of  1001  ThingsToDo 
With  Your  Personal  Computer,  with  over  100,000 
copies  in  print,  indicates  a  need  for  the  information 
it  has  provided.  Since  the  time  of  publication  of  the 
first  book,  nothing  short  of  a  revolution  has  taken 
place.  Personal  computers  have  joined  the  Ameri- 
can love  affair  with  the  television  and  automobile 
and  now  occupy  a  coveted  spot  in  more  than  five 


million  homes.  Many  of  the  applications  in  my  first 
book  are  now  commercially- available  programs; 
the  home  computer  software  market  now  includes 
some  50,000  entries,  a  bewildering  assortment  of 
programs  for  those  from  every  walk  of  life. 

The  continued  unawareness  of  the  large 
number  of  applications  a  personal  computer  can  be 
used  for  has  prompted  me  to  prepare  this  expanded 
second  book,  which  is  fully  updated  and  includes 
many  new  BASIC  programs  and  ideas. 
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Introduction 


"What  can  it  do  for  me?"  This  is  probably  one  of  the 
most  common  yet  subtly  annoying  questions  asked 
by  the  would-be  customer  of  the  personal  computer 
salesman,  sometimes  leaving  him  speechless.  It  is 
a  difficult  question,  to  be  sure.  It's  certainly  much 
easier  and  lucrative  to  expound  on  the  advantages  of 
this  computer  versus  that  one  ''because  it  has  64K. " 
Enter  this  book— a  unique,  comprehensive  guide  to 
the  marvelous  (yet  scarcely  explored  elsewhere) 
home  computer  applications  that  in  the  words  of  the 
media,  "will  greatly  change  the  way  you  live  and 
work."  It's  not  just  a  "how-to-do-it"  book,  but  a 
"what  to  do"  book;  over  1000  different  imaginative 
ideas  are  presented  and  explained  herein  on  the 
premise  that  one  idea  spawns  another. 

Not  only  the  salesman,  but  the  personal  com- 
puter manufacturers  themselves  are  often  insecure 
about  just  what  can  be  done  with  their  product.  The 
standard,  meager  manual  on  BASIC  and  perhaps  a 
few  sample  programs  come  with  their  computer, 
but  little  of  reassurance  about  applications  is  in- 
cluded, leaving  the  buyer  in  a  quandary.  Something 
is  missing  from  the  whole  brave  new  world  he  had 


breathlessly  imagined.  No,  the  video  display, 
keyboard, cables,  papers,  and  other  paraphernalia  is 
probably  all  there  and  functional.  It's  the  applica- 
tions that  are  missing.  You  didn't  buy  a  computer  as 
a  conversation  piece,  to  keep  up  with  the  Joneses, 
or  because  it  had  64K;  you  bought  it  as  a  gadget  of 
the  future,  an  appliance  of  the  mind,  the  ultimate 
game  machine,  an  adult  pacifier,  or  a  business  part- 
ner; you  got  it  to  save  the  world  from  another 
computer  illiterate,  or  you  wanted  it  to  save 
something— be  it  time,  effort,  headaches,  or 
money. 

There  is  good  news.  Among  the  seemingly 
endless  numbers  of  personal  computing  books 
available  today,  this  book  remains  a  unique 
browser's  catalog  of  potential  applications  for  your 
computer.  Allow  it  to  spawn,  identify,  and  tailor 
new  uses  for  your  system  and  to  serve  as  an 
operator's  manual  for  the  appliance  that  is  your 
mind.  It  provides  the  background  you  need  to  be- 
come more  adept,  more  versatile,  and  more  crea- 
tive in  using  your  computer's  problem-solving 
capabilities.  As  an  idea  book,  it  will  stimulate  your 


own  creativity,  helping  you  stretch  your  own  limits 
and  those  of  your  system;  the  usefulness  of  your 
computer  will  be  limited  only  by  your  ingenuity.  I 
venture  to  say  that  virtually  all  the  uses  to  which 
personal  computers  are  being  put  today  are  dis- 
cussed briefly  or  illustrated  within  this  cookbook, 
save  the  pate  de  foie  de  volatile,  that  is,  the  more 
restricted,  specialized  uses  (although  there  are 
many  of  those  inside,  too). 

Lest  I  be  accused  of  exaggeration,  I'll  amend 
the  above  claim  to  "virtually  almost  all  of  the  appli- 
cations ..."  and  invite  readers  to  send  in  their 
latest  mousetrap,  regardless  of  whether  or  not  the 
world  is  beating  a  path  to  their  door. 

This  book  should  appeal  to  anyone  interested 
in  or  owning  a  microcomputer— on  three  levels. 
The  skeptical  buyer  may  use  it  in  deciding  whether 
the  possible  applications  will  justify  the  cost  of  a 
computer,  or  he  may  use  it  to  decide  between  vari- 
ous brands  of  computers  on  the  basis  of  the  software 
available  for  a  listed  application.  The  person  in- 
terested in  using  computers  but  not  in  pro- 
gramming can  use  this  book  as  a  source  of  applica- 
tions that  may  warrant  further  investigation,  or  he 
can  type  in  the  many  BASIC  programs  for  his 
computer  included  within.  The  advanced  personal 
computer  user  has  the  opportunity  to  sharpen  his 
programming  skills  using  the  many  useful,  in- 
teresting, and  often  challenging  program  sugges- 
tions found  throughout  the  book  or  to  develop  com- 
mercial software  for  the  burgeoning  microcomputer 
market. 

Your  computer  is  an  extension  of  your  mind,  a 
mind  appliance.  Use  it  to  do  complex  calculations 
you  would  not  have  previously  done  manually  (for 
example,  the  amateur  or  professional  photographer 
may  calculate  more  precise  values  for  camera  set- 
tings to  achieve  a  certain  effect).  Examples  of  sim- 
ple formulas  are  presented  herein  and  are  intended 
to  be  part  of  larger,  more  complex  programs  to  be 
written  for  your  own  personal  application.  In  some 
cases,  due  to  space  regulations,  the  advanced 
reader  is  left  to  find  the  information  necessary  to 
write  a  program  based  on  an  idea  given;  all  infor- 
mation should  be  readily  available  at  a  local  library. 
In  other  cases,  the  program  itself  or  the  formulas 


and  methods  necessary  to  write  the  program  are 
provided  to  illustrate  an  idea  and  set  you  on  the 
right  track.  Analyze  and  adapt  the  program  within; 
learn  to  write  an  applied  program. 

Some  of  the  program  ideas  are  intended  not 
only  for  microcomputers,  but  for  programmable 
calculators  as  well.  Although  anyone  who  has  pro- 
grammed a  calculator  will  realize  the  tremendous 
advantages  of  a  microcomputer  system,  the  pro- 
grammable calculator  does  have  its  place.  For  those 
applications  where  portability  is  important  (for 
example,  marine  navigation),  the  calculator  comes 
in  handy. 

Promises,  promises— that's  all  you  can  hear 
from  the  alluring  ads  and  articles  guarantying 
countless  wonders  from  a  personal  computer  at  the 
tap  of  a  key.  Everything  from  tending  your  garden  to 
filling  out  form  1040  has  been  claimed  as  a  time-  or 
cost-justifying  excuse  to  buy  a  computer.  Yet  these 
applications  are  often  genuinely  easier,  faster,  or 
cheaper  to  do  by  hand.  This  had  led  to  the  claim  by 
newspaper  and  magazine  critics  that  computers  are 
not  the  common  man's  electronic  panacea  and  are, 
at  best,  toys  for  the  man  who  has  everything,  the 
computer  hacker,  the  math  whiz,  or  the  gadget 
freak.  There  is  a  bit  of  truth  to  this  assertion.  It's 
certainly  possible  that  you  don't  need  a  personal 
computer  at  all  (skip  ahead  if  you've  already  taken 
the  plunge.)  The  time-honored  means  of  managing  a 
household— typewriter,  file  folders,  index  cards, 
address  book,  checkbook,  bulletin  board — can 
often  perform  just  as  well  as  or  better  than  their 
computerized  equivalents.  It's  senseless  to  pa- 
tiently spend  15  minutes  loading  and  reloading 
programs,  referencing  commands,  and  remember- 
ing keywords,  only  to  eventually  call  up  your 
spouse's  birthday.  Likewise,  it  wouldn't  be  practi- 
cal to  use  a  $2000  computer  for  the  purpose  of 
computing  your  automotive  miles  per  gallon  or  to 
store  a  couple  dozen  recipes;  miles  per  gallon  can 
easily  computed  in  your  head;  index  cards  are  much 
better  for  storing  a  typical  small  collection  of  re- 
cipes and  can  be  thumbed  with  wet  or  sticky  hands. 
A  checkbook  can  be  carried  along  and  filled  out  on 
the  spot— not  an  easy  match  for  a  home  computer. 

"But,"  you  say,  "I  see  some  of  those  apphca- 


tions  listed  in  this  book, "  and  you  may  have  the  urge 
to  fold,  spindle,  or  mutilate  this  page.  The  answer 
to  this  seeming  contradiction  is  that  these  applica- 
tions are  practical  uses  of  a  computer  for  some 
people.  For  instance,  if  you  ran  a  delivery  service,  a 
miles  per  gallon  calculating  program  that  included 
statistical  analysis  for  each  truck  and  driver  could 
be  useful  in  improving  efficiency.  If  you  happen  to 
be  a  professional  chef  or  gourmet  cook,  you  might 
need  a  computer  program  that  could  automatically 
organize  hundreds  of  recipes  and  even  calculate  the 
amount  of  each  ingredient  necessary  for  a  given 
number  of  people.  Using  a  computer  to  balance  a 
checkbook  would  be  a  case  of  electronic  overkill. 
However,  a  program  fed  with  your  financial  data  on 
a  regular  basis  could  serve  as  your  personal  ac- 
countant, giving  you  a  rundown  on  clothing  costs  for 
each  individual  family  member,  a  comparison  of 
monthly  utility  bills,  and  a  complete  year-end  list  of 
tax-deductible  expenditures— and  yes,  your  bank 
balance. 

Impractical  programs  thus  become  practical  in 
specialized  applications,  as  interesting,  educational 
examples  of  programming,  and  as  idea  stimulators 


for  better  applications.  Therefore  they  are  included 
in  this  book,  but  with  a  warning  that  they  can  often 
be  considerably  more  time  and  effort  consuming 
than  the  old-fashioned  way. 

It  is  when  the  size  of  your  project  or  hobby 
becomes  large  enough  that  computing  can  offer  so- 
lutions. The  typewriter  is  a  simple,  easy  tool  for 
creating  short  memos;  the  word  processor  be- 
comes useful  in  preparing  100  page  theses.  When 
your  application  demands  many  mathematical  cal- 
culations, it's  important  to  consider  computing 
power.  However,  to  many  hobbyists,  the  writing  of 
a  program,  whether  or  not  it  has  any  real  value,  is  an 
end  in  itself.  To  them,  the  computer  is  the  most 
enticing  combination  crossword  puzzle,  chess 
game,  Rubik'scube,  and  balsa-wood  airplane  kit  yet 
devised. 

Within  these  pages  you  can  discover  and 
exploit  the  virtually  boundless  potential  inherent  in 
your  personal  computer.  Move  ahead  of  the  times, 
extend  your  reach,  open  up  new  avenues  of  per- 
sonal growth,  enjoy!  It  is  my  intention  to  help  you 
expand  your  horizons  and  to  answer  the  paramount 
question,  "What  can  it  do  for  me?" 


Chapter  1 


Applications  for  Everyone 


In  this  increasingly  complex  world,  a  personal  com- 
puter is  most  useful  in  organizing  and  simplifying 
the  minutia  of  everyday  life.  In  this  chapter  you  will 
find  an  eclectic  collection  of  applications  for 
everyone,  each  designed  to  streamline  daily  life. 

PERSONAL  REFERENCE  SOURCE 

Reference  information  that  is  often  referred  to 
but  too  complex  to  memorize  could  be  stored  for 
instant  retrieval.  Possibilities  are  endless,  but 
examples  of  charts,  tables,  and  lists  that  have  been 
stored  in  personal  computers  include 

1.  Calories  and  nutritional  content  of  selected 
foods. 

2.  Appointment  itinerary. 

3.  Important  articles  and  books  (stored  by  author, 
title,  topic,  and  date). 

4.  Sports  statistics,  amateur  or  professional. 

5.  Product  sources,   specifications,   and  prices 
from  various  suppliers  for  comparison. 

6.  Names,  addresses,  and  phone  numbers. 


7.  Stock  market  data  including  name,   symbol, 
shares,  price,  and  historical  data. 

8.  Recipes  and  shopping  lists. 

9.  Postal  and  shipping  rates,  requirements,  and 
regulations  for  the  businessman. 

10.  Metric  conversions  and  information. 

11.  Time  differences  and  phone  rates  between 
cities. 

12.  Words  commonly  misspelled  or  misused  (as  a 
quick  reference  for  writers). 

13.  Ham  Radio  log  of  contacts,    locations,   and 
times. 

14.  Collection  inventory,  including  name  of  item, 
age,  values,  and  identifying  information. 

15.  Private  pilot  flight  planning  data. 

16.  Household  inventory  for  insurance  and  finan- 
cial purposes. 

17.  Astronomical  and  astrological  data. 

18.  Things  to  be  done,  ordered,  or  checked  with 
times  available  and  deadlines. 

19.  Fishing  log. 

20.  Quotations  by  topic  and  source. 
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21.  References  from  literature,  the  Bible,  and  so 
on. 

22.  Dates  of  birthdays,  anniversaries,  and  other 
special  occasions. 

23.  Automotive  service  information,  especially  for 
business  car  fleets. 

24.  Patient  laboratory  data  over  time,  differential 
diagnoses,  or  drugs  for  physicians. 

25.  Credit  cards,  with  numbers  to  call  in  the  event 
of  theft. 

26.  Safety  deposit  box  contents. 

27.  Physical  contents,  chemical  data,  formulae. 

28.  Emergency  phone  numbers. 

29.  Poison  antidotes. 

30.  Computer  software/hardware  comparisons. 

31.  Cumulative  weather  data. 

32.  Abbreviations. 

33.  Wine  information  for  the  the  connoisseur. 

34.  Horse  racing  statistics. 

35.  Anecdotal  material  for  those  obliged  to  make 
speeches. 

36.  Insurance  policy  inventory  including  coverage, 
cost,  account  numbers,  and  deductibles  for 
house,  car,  health,  and  other  kinds  of  insur- 
ance. 


This  list  isn't  exhaustive,  and  only  a  few  of 
these  applications  may  be  of  use  to  you,  but  it 
serves  to  illustrate  the  multiple  possibilities 
primarily  involving  the  storage  of  information.  How 
would  you  store  this  information?  Use  the  Elec- 
tronic Memorandum  program,  Listing  1-1,  or  the 
Data  Base  Demonstration  program,  Listing  1-14, 
for  your  own  tailor-made  application. 


THE  ELECTRONIC  MEMORANDUM  PROGRAM 

In  Listing  1-1  you  will  find  a  program  that 
should  be  useful  to  everyone;  think  of  it  as  a  mem- 
ory extension.  The  program  allows  you  to  store  any 
type  of  information  (household,  business,  financial) 
under  a  "keyword"  for  instant  retrieval  at  a  later 
date.  For  instance,  if  you  had  an  appointment  on  a 
certain  date,  the  pertinent  information  could  be 
stored  under  the  keyword  "9/11/85;"  on  that  date 
you  would  simply  type  "9/11/85"  to  receive  a 
printout  of  all  appointments  or  reminders  stored 
under  that  keyword.  Likewise,  a  reminder  for  an 
annual  occasion  could  be  entered  under  a  keyword 
specifying  only  the  month  and  day.  Keywords  may 
be  dates  or  words  such  as  "MARKS  BIRTHDAY." 
Telephone  numbers,  business  contacts,  important 
dates,  and  many  other  bulletin-board  type  scraps  of 
information  could  be  stored  so  that  they  could  not 
be  forgotten  or  misplaced.  This  information  could 
include  the  number  and  expiration  date  of  your 
driver's  license,  the  serial  numbers  of  credit  cards 
(and  who  to  notify  if  they  are  lost),  expense  account 
information,  information  about  insurance  policies, 
warranty  information  on  all  appliances,  names  and 
addresses  of  dealers,  magazine  subscription  dates, 
handy  home  repair  tips  (for  example,  the  size  of  the 
air  conditioner  filter),  lock  combinations,  special 
codes,  the  method  of  resetting  a  digital  watch, 
Christmas  gifts  and  to  whom  they  were  given, 
eyeglass  prescription,  and  so  on  ad  infinitum.  Ad- 
ditionally, information  may  be  stored  under  more 
than  one  keyword  to  ensure  ability  to  retrieve  it. 

This  program  is  designed  for  use  with  a  cas- 
sette. It  could  be  changed  for  use  with  floppy  disks. 
The  program  requires  6.3K  of  memory. 


Listing  1-1:  The  Electronic  Memorandum  Program. 

10  PRINTCHR$(147)TAB( 50) "ELECTRONIC  MEMORANDUM" 

20  CLR:PRINT:DIM  A$( 100) ,B$( 100)  ,C$( 100) ,D$( 100) ,E$(  100) :FL=0: D=0 

25  PRINT"INSERT  SEPARATE  CASSETTE  FOR  DATA  FILE" 

27  PRINT'REWIND  DATA  TAPE;PRESS  RETURN  " ;  :INPUT"WHEN  READY" ;A$ 

30  PRINT"THIS  PROGRAM  MUST  BE  INITIALIZED  THE" 

32  PRLNT"FIRST  TIME  IT  IS  USED.   DO  YOU  NEED  TO" 

33  INPUT'INITIALIZE  (Y/N)";A$:IF  A$<>"Y"  THEN  35 

34  G0SUB  8000:INPUT"REWIND  DATA  TAPE,  PRESS  RETURN  ";A$ 

35  OPEN  1,1:INPUT#1,Z:IF  Z=0  THEN  FL=1:G0T0  40 


36  IF  Z>=95  THEN  PRINT  "FIVE  RECORDS  BEFORE  FILE  IS  FULL" 

37  FORA=0  TO  Z:INPUT#1 ,B$( A) :IF  B$(A)="END"  THEN  GOTO  40 

38  INPUT#1,C$(A):IF  C$(A)="END"THEN  GOTO  40 

39  NEXT 

40  PRINT"SELECT  AN  OPTION: "-.PRINT 
42  CLOSE  1,1 

50  PRINT"COMMAND", "FUNCTION": PRINT 

60  PRINT"INPUT", "INPUT  A  NEW  ITEM" 

70  PRINT"CAT", "PRINT  LIST  OF  COMMON  ENTRIES" 

80  PRINT"FIND","FIND  A  PREVIOUSLY  STORED  ITEM" 

90  PRINT"REDO","EDIT  A  PREVIOUSLY  STORED  ITEM" 

100  PRINT"DEL", "DELETE  AN  ITEM" 

110  PRINT"END","END  PROGRAM  AND  SAVE  FILE" 

120  INPUT  A$ 

130  IF  A$="INPUT"  THEN  1000 

140  IF  A$="CAT"  THEN  3000 

150  IF  A$="FIND"  THEN  4000 

160  IF  A$="REDO"  THEN  2000 

170  IF  A$="DEL"  THEN  5000 

180  IF  A$="END"  THEN  7000 

190  PRINT"ILLEGAL  COMMAND— PLEASE  ENTER  ONE  OF  " 

195  PRINT"THE  FOLLOWING:" 

200  GOTO  50 

1000  PRINT"ENTER  A  KEYWORD  (MAY  BE  UP  TO  20  ": INPUT" LETTERS  LONG";B$(A) 

1010  IF  LEN(B$(A))>20  THEN  1000 

1020  PRINT"ENTER  THE  DATA  FOR  THIS  KEYWORD  (MAY  BE  UP  TO  "; 

1025  PRINT"75  CHARACTERS  LONG": INPUTC$(A) 

1030  PRINT"IS  THIS  CORRECT  ( Y/N)?";C$(  A)  .-INPUT  A$:IF  A$<>"Y"  THEN  1020 

1050  INPUT"ENTER  ANOTHER (Y/N)"; A$ 

1060  IF  A$="N"  THEN  1080 

1070  A=A+1 

1071  IF  A-D<100  THEN  1000 

1072  IF  A-D=100  THEN  PRINT"LAST  ITEM  THIS  FILE" 

1074  IF  A-D>=100  THEN  PRINT"FILE  FULL  ERROR" :PRINT"CLOSING  FILE" 

1076  PRINT"RE-RUN  PROGRAM,  INITIALIZING  A  NEW  SEC-  TION  OF  DATA  TAPE" 

1078  GOTO  1000 

1080  GOTO  40 

2000  PRINT"ENTER  THE  KEYWORD  FOR  THE  DATA  TO  BE" 

2010  INPUT"EDITED";B$ 

2020  FORQ=0  TO  A 

2030  IF  LEFT$(B$(Q),LEN(B$))OB$  THEN  2110 

2040  PRINTCHR$(147) 

2050  PRINT"MEMORANDUMM 

2060  PRINTC$(0):PRINT 

2070  INPUT"DO  YOU  WISH  TO  EDIT  THIS  ITEM(Y/N)" ; A$ 

2080  IF  A$="N"  THEN  2110 

2090  INPUT"RE-ENTER  ALL  DATA";C$(Q) 

2100  PRINT"IS  THIS  CORRECT  (Y/N)?";C$(Q) -.INPUT  A$ 

2105  IF  A$<>"Y"  THEN  PRINT"MUST  BE  NO  LONGER  THAN  75  LETTERS" -.GOTO  2090 

2107  INPUT"ENTER  ANOTHER  (Y/N)";A$:IF  A$<>"Y"  THEN  2120 

2110  NEXT  Q 

2120  PRINT"FILE  END" -.GOTO  40 

3000  PRINT"SELECT:  1)LIST  A  CATALOG  OF  ALL  ITEMS" 

3005  PRINT"        2) LIST  ALL  ITEMS  WITH  COMMON  KEYWORD" 

3007  INPUT  Y 

3010  ON  Y  GOTO  3300,3020 

3020  INPUT"ENTER  THE  KEYWORD" ;H$ 


3040  PRINT"NUMBER" , "KEYWORD" : N=l 

3050  FOR  Q=0  TO  A 

3060  IF  LEFT$(B$(Q),LEN(H$))OH$  THEN   3090 

3070  PRINT  N,B$(Q) 

3080  N=N+1:IF  INT(N/11)=N/11  THEN  INPUT  "MORE—PRESS  RETURN";A$ 

3090  NEXT  Q 

3100  PRINT" ":PRINT:GOTO  40 

3300  PRINTCHR$(147) 

3310  PRINT"NUMBER" , "KEYWORD" : N=l 

3320  FOR  R=65  TO  90 

3330  FORQ=0  TO  A 

3340  IF  LEFT$(B$(Q),l)OCHR$(R)  THEN  3360 

3350  PRINT  N,B$(Q):N=N+1:IF  INT(N/ll)=N/ll  THEN  INPUT"MORE— PRESS  RETURN";A$ 

3360  NEXT  Q,R 

3370  GOTO  40 

4000  PRINTCHR$(147) 

4010  INPUT  "ENTER  KEYWORD" ;B$ 

4020  N=l 

4030  FORQ=0  TO  A 

4040  IF  LEFT$(B$(Q),LEN(B$))OB$  THEN  4080 

4050  PRINT"KEYWORD:";B$(Q) -.PRINT 

4060  PRINT  TAB(5)C$(Q):PRINT 

4070  N=N+1:IF  INT(N/3)=N/3  THEN  INPUT"MORE--PRESS  RETURN" ;A$ 

4080  NEXT  Q 

4090  GOTO  40 

5000  PRINTCHR$(147) 

5010  INPUT"ENTER  THE  KEYWORD" ;B$ 

5020  FORQ=0  TO  A 

5030  IF  LEFT$(B$(Q),LEN(B$))OB$  THEN  5090 

5040  PRINTCHR$(147)"KEYW0RD";B$(Q):PRINT 

5050  PRINTC$(Q): PRINT 

5060  INPUT"DO  YOU  WISH  TO  DELETE  THIS  RECORD(Y/N)";A$ 

5070  IF  A$<>"Y"  THEN  5090 

5080  B$(Q)="":C$(Q)="":D=D+1 

5090  NEXT  Q 

5100  GOTO  40 

6000  INPUT"REWIND  DATA  TAPE, PRESS  RETURN" ;A$ 

6010  OPEN  1 , 1 , 2 , "MEMORANDUM" 

6020  PRINT#1,(A-D) 

6030  FORQ=0  TO  A: IF  B$(Q)=""THEN  6050 

6040  PRINT#1,B$(Q);CHR$(32) 

6045  PRINT#1,C$(Q) 

6050  NEXT  Q:PRINT#1,"END" 

6060  CLOSE  1:END 

7000  PRINT"S0RTING...":F0RQ=1  TO  A 

7005  D$(Q)=B$(Q):E$(Q)=C$(Q) 

7010  A$(Q)=D$(Q) 

7020  NEXT  Q 

7030  K=0 

7040  Q=l 

7050  FOR  J=2  TO  A 

7060  IF  A$(Q)<A$(J)  THEN  7080 

7070  Q=J 

7080  NEXT  J 

7090  A$(Q)="ZZZ" 

7100  K=K+1 

7110  B$(K)=D$(Q):C$(K)=E$(Q) 


7120  IF  K=A+1  THEN  7140 

7130  GOTO  7040 

7140  GOTO  6000 

8000  REM  INITIALIZE  ROUTINE 

8002  A$=M" 

8005  OPEN  1 , 1 , 2 , "MEMORANDUM" 

8010  PRINT#1,0;A$;A$ 

8020  CLOSE  1: RETURN 


AN  INDEX  TO  YOUR  LIBRARY 

How  often  do  you  remember  reading  an  im- 
portant article  or  chapter,  yet  you  can't  remember 
the  name  or  date  of  the  magazine  or  book?  A  per- 
sonal computer  can  easily  organize  and  cross- 
reference  your  books  and  articles  for  instant  re- 
trieval using  only  the  name,  subject,  author,  or 
other  parameter  to  retrieve  the  entries  you  are 
interested  in.  With  the  wealth  of  personal  computer 
magazines  available,  an  index  to  pertinent  articles 
will  ease  the  difficulty  of  finding  that  special  patch 
or  program. 

A  program  to  accomplish  indexing  could  store 
information  regarding  items  as  a  continuous  string 
of  data,  each  string  being  composed  of  several 
"fields,"  and  each  field  separated  by  a  comma.  An 
example  of  a  string  with  fields  describing  a 
magazine  article  could  be  as  follows: 
The  Stock  Market,  Business  Today, 


I, 


1, 


storage 
location 


v- ^ 

category 

#1 

Smith 
author 


S, 


category 

#2 


name  of  article/book        name  of  magazine/book 


If  data  is  formatted  on  disk  in  a  manner  similar 
to  this  example,  disk  commands  will  allow  the  com- 
puter to  search  through  a  selected  field  to  find  all 
entries  with  a  given  field.  For  example,  the  user 
could  specify  a  search  for  all  entries  having  an 
author  named  "Smith/'  The  computer  would  then 
search  through  the  entire  disk  file  examining  all  the 
fields  containing  author  s  names  (the  last  field  in  the 
above  example)  and  printing  all  those  with  "Smith" 
as  the  author.  The  disk  commands  used  the  above 
format  are  shown  in  Listing  1-2. 


Listing  1-2:  The  Random  Access  Sample  Routine. 


3G 


10  REN  OPEN  fl  RELATIVE  FILE  NAMED  "FILE' 

20  OPEN  1,8,15:  OPEN  2,8,3,  "  0  :  DOOR ,  L ,  " +CHR$  -:',  32  > 

38  REM  FORMAT  FIELD  LENGTHS  WITH  30  FOR  ARTICLE  NAME, 

40  REM  2  FOR  VOLUME  N0-,  5  FOR  HATE,  1  FOR  CATEGORY  #1 

50  REM  1  FOR  STORAGE  LOCATION  AND  10  FOR  AUTHOR  NAME 

60  RESTORE : DATA  1 , NAME , 1 , M AGAZ I HE , 1 , VOL ,  1 ,  DATE , 1 , CATEGORY  # 1 

62  DATA  1 , CATEGORY  #2 , 1 , LOCflT I  OH , 1 , AUTHOR 

55  REM  SET  FILE  COUNTER  TO  1  TO  BEGIN  AT  BEGINNING  OF  FILE 

67  ft=l:GQTQ  120 

70  REM  IF  REACH  END  OF  FILE,  THEN  END 

30  IF  E=59  THEN  FRINT1+2,  1  :  GOTO  500 

50  REM  INCREMENT  FILE  COUNTER 


FOR  MAGAZINE 
1  FOR  CATEGORY 


NAME. 


SEARCH 


100 


=X+1 


110  REM  READ  THE  NEXT  ENTRY 
1 20  XI =tf : X2=9 : I F  X 1 >256  THEN 
125  FOR  Ol  TO  7:  READ  A,A*(C:j 
127  IMPUT#2,Z*a:> :NEXT  C 


■^2=  I  NT  ( X 1  /256  >  :  X 1  :*X  1  -  •:.  256*X2 ') 
■  PR  I  NTtt  1 ,  "  F "  CHR$  ( 3  >  CHR*  \  X 1  )  CHR$  ■: 


X2)CHR$':;R> 


130  REM  IS 
140  IF  z$a 


THE  AUTHOR  "SMITH"?  IF  30,  PRINT  OUT  THAT  ENTRY 
'•}  == "  SM I TH "  THEN  FOR  i>  1  TO  3  :  PR  I  NT  A*  C  C ) ;  Z*  ( C )  '  NEXT 


150  REM  INCREMENT  COUNTER 

1 6  y  X  -  X  + 1  ;  E = 5  @  '•  G  0  T  0  8  0 

500  CL0SE2 : CLOSE  1 • REM  CONTINUE  FROGRRN  FROM  HERE. 


Likewise,  the  computer  could  examine  more 
than  one  field  to  limit  the  search  to  more  specific 
entries.  As  an  example,  you  could  request  a  list  of 
all  articles  published  after  1980  concerning  the 
stock  market.  The  computer  would  search  both  the 
category  and  date  fields  for  data  meeting  these 
requirements.  A  listing  of  all  the  information  con- 
cerning each  item  would  be  outputted  at  the  conclu- 
sion of  the  search.  Floppy  disks  or  high-speed  ran- 
dom access  cassettes  are  best-suited  for  this  appli- 
cation. 


WORD  PROCESSING 

Pencil  and  paper  have  never  been  the  ideal 
servants  of  the  mind.  Paper  refuses  to  accept  in- 
stant changes  at  the  whim  of  the  writer.  Instead,  the 
writer  must  resort  to  erasing,  inserting,  cutting, 
and  pasting. 

But  no  longer  are  we  restricted  to  pencil  and 
paper.  Word-processing  programs  can  allow  rear- 
rangement of  words  at  the  touch  of  a  finger;  era- 
sures are  of  the  past.  Correction  fluid  has  likewise 
been  replaced  by  the  DELETE  key.  Word  proces- 
sors give  you  the  ability  to  write  spontaneously. 
Whereas  most  people  try  to  edit  their  words  before 
committing  them  to  paper,  the  advent  of  word  pro- 
cessors allows  you  to  type  as  you  think,  and  later 
rearrange  words,  sentences,  and  paragraphs  in  a 
painless  fashion.  Thus,  the  writer  can  make  his 
ideas  concrete  by  displaying  them  on  the  video 
screen  and  later  concern  himself  with  the  gram- 
matical aspects,  before  printing  out  a  manuscript. 
Many  writers  feel  that  this  enhances  their  creativ- 
ity and  makes  writing  easier  and  more  enjoyable. 

After  your  manuscript,  letters,  or  documents 
are  corrected  on  the  video  screen,  you  may  assign 
various  codes  determining  page  widths,  page 
lengths,  page  numbering,  margins,  and  so  on;  the 
printer  will  reproduce  the  document  perfectly,  as 
you  have  specified.  You  can  then  edit  the  document 
and  print  it  out  again,  without  having  to  devote  time 


and  effort  to  retyping  it.  Additionally,  this  informa- 
tion can  be  stored  on  a  floppy  disk  for  later  review 
and  retrieval. 

Anyone  who  writes  professionally  or  com- 
poses a  letter  each  day,  should  investigate  the  use 
of  a  word  processor.  Most  are  very  easy  to  use  and 
can  be  tremendous  time,  labor,  and  money  savers. 
Many  experts  consider  this  application  one  of  the 
most  useful  for  personal  computer  owners. 
With  most  word  processors  you  can: 

•  Block  Move.  This  feature  lets  you  move  pieces  of 
your  text— from  a  word  to  several  paragraphs— 
around  like  blocks.  You  can  also  delete  a  block  at 
whatever  point  you  designate,  and  the  rest  of  the 
text  will  fill  in  the  "hole."  Or,  conversely,  you 
can  add  new  blocks  at  any  point.  Think  of  a  word 
processor  as  a  food  processor  of  writing,  capable 
of  slicing,  chopping,  and  dicing  the  language  with 
ease. 

•  Word  Wrap.  As  you  type  on  a  word  processor  you 
can  forget  hitting  the  carriage  return  key  at  the 
end  of  each  line,  as  the  computer  automatically 
puts  as  many  words  as  possible  on  one  line  and 
then  starts  a  new  one.  This,  in  computerese,  is 
called  word  wrap. 

•  Search  and  Replace.  You  can  instruct  the  word- 
processor  program  to  search  the  entire  text  or  a 
portion  of  it  for  the  occurrence  of  a  particular 
word  or  phrase.  Suppose  you  would  like  to  cor- 
rect a  misspelled  name  throughout  a  six  page 
letter:  just  type  in  the  name  as  you  misspelled  it 
and  again  as  spelled  correctly;  the  program  will 
automatically  correct  this  error  throughout  the 
text.  The  search  command  may  also  be  used  to 
rapidly  locate  a  section  in  a  large  manuscript. 

•  Typeover.  When  you  want  to  substitute  one  word 
or  phrase  for  another,  you  can  type  your  change 
right  over  the  existing  text,  and  the  unwanted 
letters  will  vanish  as  the  new  ones  appear  to  fill 
their  places. 

•  Justify.  Some  programs  will  automatically  adjust 
the  spacing  between  words  or  letters  so  that  each 


line  can  be  printed  out  at  the  same  length.  This 
process  is  called  right  justification.  Left  justifica- 
tion simply  means  that  the  lines  are  aligned  at  the 
left  margin  as  usual,  although  some  programs  can 
create  special  effects  by  aligning  text  only  at  the 
right  margin  or  by  centering  all  text. 

These  are  the  most  basic  features  found  on 
word  processing  programs.  Many  other  special 
features  come  with  certain  word-processing  pac- 
kages. For  example,  a  mouse  can  be  used  to  position 
the  cursor  at  any  point  on  the  screen  to  facilitate 
editing.  An  automatic  directory  program  can  check 
the  spelling  of  each  word  you  write  against  its 
vocabulary  and  make  corrections.  An  automatic 
thesaurus  program  can,  at  your  command,  display 
five  to  ten  synonyms  for  thousands  of  common  En- 
glish words.  Other  programs  are  designed  to  cor- 
rect faulty  grammar— for  those  who  don't  mind 
having  a  computerized  English  teacher— or  allow 
you  to  design  type  fonts  and  integrate  graphs  and 
pictures  with  your  text.  Several  typesetting  firms 
will  also  accept  word  processor  output  directly  via 


model  or  floppy  disk  for  instant,    money-saving 
typesetting  jobs. 

LETTER  WRITING 

A  specialized  text  editor,  designed  to  edit  and 
format  your  letters,  could  expedite  the  process 
considerably.  For  example,  if  you  are  writing  a 
business  letter,  the  address  of  the  recipient  could 
be  stored  when  it  is  typed  at  the  beginning  of  the 
letter  and  later  recalled  to  print  the  envelope.  If  you 
are  writing  the  same  letter  to  several  people, the 
body  could  be  stored  in  the  computer.  You  need 
type  only  the  addresses  and  other  personalized  in- 
formation, and  this  information  would  be  inte- 
grated with  the  text  to  form  a  complete  letter. 
Additionally,  the  editing  features  of  a  word  proces- 
sor facilitate  the  correction  of  mistakes  while  you 
are  entering  the  body  of  the  letter  or  the  per- 
sonalized information.  A  mailing  list  program  can 
be  integrated  with  such  a  program  to  automatically 
produce  personalized  letters.  A  program  to  prepare 
a  personalized  form  letter  is  presented  in  Listing 
1-3. 


Listing  1-3:  The  Specialized  Word-Processor  Program 

10  PRINTCHR$(147)TAB(45)"SPECIALIZED  WORD  PROCESSOR" -.PRINT 

15  PRINTTAB( 50) "WRITES  LETTERS" 

20  CLR 

30  DIM  A$(500) 

40  INPUT"ENTER  THE  DATE";D$ 

50  INPUT"ENTER  RECIPIENTS'  NAME";D1$ 

60  PRINT"ENTER  COMPANY  NAME  OR  TITLE  (PRESS" 

65  INPUT"RETURN  IF  N0NE)";C$ 

70  INPUT"ENTER  STREET  ADDRESS" ;N1$ 

80  INPUT"ENTER  TOWN  STATE  ZIP  AS  ONE  STRING" ;T1$ 

90  PRINT"ENTER  NAME  FOR  LETTER  ADDRESS  (E.G." 

95  INPUT"DEAR  )";A1$ 

400  PRINT"ENTER  SUCCESSIVE  LINES  FOR  THE  BODY." 

405  PRINT"IF  YOU  MAKE  AN  ERROR  ON  A  LINE  AND  " 

410  PRINT"W0ULD  LIKE  TO  CORRECT  IT  ENTER  '#'" 

415  PRINT"AND  THE  NUMBER  OF  THE  LINE  (E.G.  #5)" 

420  PRINT"AS  ANY  OTHER  LINE" 

430  PRINT"ENTER  'END'  TO  PRINT  OUT  A  COPY" 

440  FOR  X=l  TO  500 

445  PRINT"#";X 

447  INPUT  A$(X) 

450  IF  LEFT$(A$(X),1)="#"  THEN  800 

460  IF  A$(X)="END"  THEN  480 

470  NEXT  X:X=X-1 

480  PRINT :PRINT"READY  THE  PRINTER  TO  OUTPUT  LETTER" 

482  INPUT"PRESS  RETURN  WHEN  READY" ;A$ 


485  OPEN  129,4, 7, "LETTER" :CMD  129 

490  PRINT: PRINT: PRINT: PRINT 

500  PRINT  TAB(30)D$ 

510  READ  N$,A$,T$,A2$ 

520  PRINT  TAB(30)A$ 

530  PRINT  TAB(30)A2$ 

540  PRINT:PRINT 

550  PRINT  TAB(5)D1$ 

560  IF  C$<>""  THEN  PRINT  TAB(5)C$ 

570  PRINT  TAB(5)N1$ 

580  PRINT  TAB(5)T1$ 

590  PRINT.-PRINT 

600  PRINT  TAB(5)"DEAR  ";A1$;":" 

610  PRINT 

620  FOR  B=l  TO  X-l 

630  PRINT  TAB(5)A$(B) 

640  NEXT  B 

650  C=23+B 

660  PRINT 

670  PRINT 

680  PRINT  TAB(30)"C0RDIALLY," 

690  PRINT 

700  PRINT 

710  PRINT  TAB(30)N$ 

720  IF  A$<>"X"  THEN  PRINT  TAB(30)A$ 

722  PRINT#129:CL0SE  129:INPUT  "PRINT  ANOTHER  COPY";A$ 

724  IF  A$<>"Y"  THEN  END 

726  RESTORE: GOTO  480 

730  REM  ENTER  YOUR  ADDRESS  HERE 

740  DATA  JOHN  DOE 

745  REM  IF  NO  TITLE  PUT  'X'  IN  PLACE  OF  THE  WORD  'CITIZEN'  IN  LINE  750 

750  DATA  CITIZEN 

760  DATA  321  ANYSTREET  WEST 

770  DATA  NEW  YORK  NY  10036 

800  REM  EDIT  ROUTINE 

810  Y=VAL(RIGHT$(A$(X),LEN(A$(X))-1)) 

820  PRINT"SELECT:  1)RE-ENTER  ENTIRE  LINE  " 

825  INPUT"        2)EDIT";A 

830  ON  A  GOTO  840,860 

840  INPUTA$(Y) 

850  X=X-1:G0T0  470 

860  REM 

870  PRINT"USE  SPACE  BAR  TO  SEARCH  THROUGH  LINE" 

872  PRINT"USE  'D'  TO  DELETE  A  CHARACTER" 

874  PRINT"USE  'I'  TO  INSERT  CHARACTERS" 

876  PRINT"USE  'L'  TO  LIST  A  LINE" 

878  PRINT"USE  'B'  TO  BACKSPACE,  AND  'RETURN'  TO" 

880  PRINT"END  EDITS" 

882  C=l 

885  FOR  Q=l  TO  10000 

890  GET  Q$ 

THEN  M=M+1:C=C+1:I$=MID$(A$(Y),M,1):PRINT  1$; 

THEN  PRINT:PRINT  A$(Y) :C=1 :M=0 

THEN  INPUT  J$:GOSUB  1000 

THEN  A$(Y)=LEFT$(A$(Y),C-1)+RIGHT$(A$(Y),LEN(A$(Y))-C) 

THEN  PRINT  CHR$(20) ; :C=C-1935 

THEN  PRINT  LEFT$(A$(Y) ,C) ; :GOTO  890 


895  IF  Q$=! 

»  » 

900  IF  Q$=' 

'L' 

910  IF  Q$=f 

'I' 

920  IF  Q$=' 

'D' 

930  IF  Q$=' 

'B' 

935  IF  Q$=' 

'B' 

940 

IF  Q$=CHR$(13) 

THEN 

PRINT:PRINTA$(Y):GOTO  850 

950 

NEXT  Q 

960 

GOTO  870 

100C 

)  A$(Y)=LEFT$(A$(Y), 

C-1)+J$+RIGHT$(A$(Y) 

,LEN(A$(Y))- 

-C+l) 

: RETURN 

CATEGORIZING  INFORMATION 

The  purpose  of  the  subroutine  in  Listing  1-4  is 
to  categorize  information  stored  in  random  access 
format  on  a  floppy  disk.  Data  is  stored  on  disk  with, 
for  instance,  a  10  character  keyword  preceding  240 
characters  of  descriptive  information  (many  random 
access  disk  systems  have  a  string  length  limit  of  255 
total  characters).  The  subroutine  searches  through 
the  disk  files  to  find  and  print  all  entries  having  a 
given  keyword.  This  subroutine  operates  on  the 
same  principle  as  the  Electronic  Memorandum  pre- 


sented earlier  in  this  chapter,  but  it  is  simplified  for 
this  application.  Listing  1-5  is  a  simple  categorizing 
program  for  use  with  tape. 

Why  is  a  categorizer  program  useful? 
Businessmen,  writers,  and  other  professionals  who 
need  to  categorize  information  for  presentations, 
reports,  outlines,  or  organizational  purposes  may 
find  that  a  program  incorporating  this  subroutine  is 
helpful.  A  similar  program  was  used  in  the  prepara- 
tion of  this  book.  Many  other  applications,  including 
categorizing  income  tax  deductions,  are  possible. 


Listing  1-4:  The  Categorizer  Subroutine 


10  REM 

20  REM 

30  REM 

40  REM 

50  REM 

60  OPEN  1,8. 15 

•300  REM  SELECT 


CRTEG0R I ZER  SUERDUT I HE 

INCORPORATE  WITH  fl  DATA  BASE  WHICH  STORES  INFORMATION 
IN  THE  FORMAT  OF  <E«G.>  10  CHARACTERS  FOR  KEYWORDS 
AND  (E.G.)  240  CHARACTERS  FOR  DESCRIPTIVE  INFO 
CREATE  A  FILE  FOR  RANDOM  ACCESS1'  "R" ;  USING  FILEttl 

OPEN  2 ,  3 ,  3 ,  "  0  •'  DATA ,  L ,  "  +CHRf  ( 250 ) 

KEYWORD/CATEGORY"; CAS 


&  FILENAME  'DATA' 


1000 
1010 
1020 
1030 
1040 
1050 

1 060 
1070 
1080 

1090 
1100 
1110 

1120 
1122 
1124 
1126 
1130 
1140 
1150 

2000 


REM  OPEN  A  FILE  FOR  RANDOM  ACCESSOR")  USING  FILE#1  &   FILENAME  'DATA' 

REM 

REM  10  CHARACTERS  FOR  CATEGORY  NAME 

REM  AND  240  CHARACTERS  FOR  DESCRIPTIVE  INFORMATION 

RESTORE  •'  DATA  1 ,  CATEGORY ,  1 2 ,  I NFORMFIT I  ON 

REM  SET  FILE  COUNTER  TO  1  TO  BEGIN  AT  BEGINNING  OF  FILE 

X=l :G0T0  1080 

REM  IF  REACH  END  OF  FILE,  THEN  END 

IF  E=50  THEN  FRINT#2, 1 : GOTO  200S 

REM  INCREMENT  FILE  COUNTER 

X=X+1 

REM  READ  THE  NEXT  ENTRY 

X 1  =;  ■■■; :  tf2=0  :  I F  X 1  >256  THEN  ft  2=  I  NT  < X 1  ,■ 

FOR  C- 1  TO  2 • READ  A , A*  C C > ; PR I HTtt 1 . 

IHFUT#2,B$(C> :NEXT 

REM  IF  THIS  ITEM  IS  THE  DESIRED  CATEGORY. 


SEARCH 


-'256::'  :tfl=; 
"F"CHR$C3 


a <256¥X2> 

'CHR$':X1:'CHR$(X2;'CHR$-::R; 


I F  E$  <  1  >  =C m   THEN  PR  I  NT  A$  (,  1 ) .;  B$  ( 1 )  :  PR  I  NT 

REM  INCREMENT  COUNTER 

X~X+1  "-GOTO  1O80 

CL0SE2  :  CLOSE  1  :  REM  CONTINUE  PROGRAM  HERE,,. 


THEN 
A*  (2: 


PRINT 
,B$-:2. 


OUT 


Listing  1-5.  The  Categorizer  Program 

5  PRINT  CHR$(H7) 

10  PRINT  "CATEGORIZER  PROGRAM" 

20  CLR 

25  X=l 


30  DIM  A$(1000) 

40  PRINT  "SELECT:  1)  ENTER  STRINGS" 

45  PRINT  "        2)  CATEGORIZE" 

47  INPUT  "        3)  END  ";A 

50  ON  A  GOTO  60,200,300 

60  PRINT  "ENTER  STRINGS  WITH  KEYWORD  AT  THE  BE-   GINNING" 

65  INPUT  A$(X) 

70  IF  A$(X)="END"  THEN  GOTO  80 

75  X=X+1:G0T0  65 

80  OPEN  1 , 1 , 1 ,  "CATEGORY  FILE":  REM  OPEN  TAPE  FILE 

85  PRINT#1,X 

87  FOR  N=l  TO  X:PRINT#1 , A$(N) :NEXT 

90  CLOSE  1,1,1: GOTO  40 

200  INPUT  "ENTER  KEYWORD" ;B$ 

210  INPUT  "ENTER  NUMBER  OF  FILES  TO  BE  SEARCHED" ;Z 

220  PRINT  "REWIND  TAPE  TO  STARTING  POSITION" : INPUT  "PRESS  RETURN  WHEN  READY" ;C$ 

230  OPEN  1,1,0,  "CATEGORY  FTLE":REM  OPEN  FILE  FOR  INPUT 

233  INPUT#1,X 

235  IF  Z>=X  THEN  Z=X 

237  FOR  N=l  TO  Z: INPUTS  1 , A$(N) 

239  IF  A$(N)="END"  THEN  GOTO  260 

240  IF  B$=LEFT$(A$(N),LEN(B$))THEN  PRINT  A$(N) 
250  NEXT  N 

260  CLOSE  1 ,1,0 
270  PRINT: PRINT 
280  GOTO  40 
300  END 


A  RECIPE  INDEX  AND  CALCULATOR 

A  collection  of  your  favorite  recipes  can  be 
stored  on  your  computer  for  rapid  and  selective 
retrieval.  A  list  of  the  characteristics  of  each  recipe 
could  be  included  (for  example,  time  required  for 
preparation,  hot  or  cold,  number  served,  meal 
(dinner,  lunch,  or  breakfast),  expense,  and 
calories).  Using  these  characteristics,  the  compu- 
ter could  index  recipes  and  print  lists  of  recipes 
with  a  selected  characteristic  for  a  special  occasion. 

A  recipe  calculator  could  change  the  amounts 
of  each  ingredient  so  that  the  proper  amount  of  the 
recipe  will  be  made  for  a  given  number  of  people.  A 
simple  recipe  calculator  subroutine  is  presented  in 
Listing  1-6.  It  can  be  used  alone  or  can  be  incorpo- 
rated in  a  recipe  database  program. 


If  the  costs  for  various  ingredients  were  stored 
in  your  computer,  the  cost  of  a  given  recipe  could  be 
instantaneously  computed;  allowance  would  also  be 
made  for  the  number  of  persons  to  be  served.  This 
type  of  program  could  be  especially  useful  to  those 
with  a  sideline  or  fulltime  bakery  or  catering  ser- 
vice, as  the  costs  for  any  recipe  for  any  number  of 
people  can  be  quickly  estimated. 

A  sample  field  of  information  for  one  recipe  is 
below: 

MEATLOAF,       6,         1.5   lb. gr. beef  lcup  milk*. 

no.        5  cup  onion*  1  egg, 
name  of  item  servings,    abbreviated  ingredients 

350  1.5  hr.,  Bill's  favorite 

oven  temp.         bake  time  comments 


Listing  1-6:  The  Recipe  Calculator  Program 

10  PRINT  "RECIPE  CALCULATOR" 

20  REM  COULD  BE  IMPROVED  TO  CONVERT  UNITS  OF  MEASUREMENT  (E.G. 

30  PRINT  "HOW  MANY  SERVINGS  IS  THE  ORIGINAL" 

35  INPUT  "RECIPE  INTENDED  FOR"; SI 

SUMMERS— 4 
PINTS  TO  QUARTS) 

10 


40  PRINT  "HOW  MANY  SERVINGS  ARE  TO  BE" 

45  INPUT  "PREPARED" ;S2 

50  R=S2/S1 

60  N=l 

70  PRINT 

80  PRINT  "ENTER  THE  NAME  OF  EACH  INGREDIENT, 

THE  AMOUNT  (E.G. 

,  MILK 

1,PINT)." 

90  PRINT  "ENTER  'END, 1,1'  WHEN  FINISHED." 

100  INPUT  A$(N),B(N),C$(N) 

110  IF  A$(N)="END"  THEN  130 

120  N=N+1:G0T0  100 

130  FOR  X=l  TO  N 

135  IF  A$(X)="END"  THEN  170 

140  PRINT  A$(X),R*B(X),C$(X) 

150  NEXT  X 

160  PRINT 

170  END 

A  program  to  store  information  used  in 
selecting  and  mixing  drinks  for  instant  retrieval 
could  be  created.  Such  a  program  could  even  store 
pictures  of  the  size  and  shape  glasses  to  use  with 
each  drink.  The  computer  could  also  suggest  an 
appropriate  cheese  to  accompany  a  selected  wine. 

ITINERARY  ASSISTANT 

A  list  of  appointments,  deadlines,  and  various 
tasks  could  be  stored  in  a  computer  and  displayed  in 
a  specified  format  to  assist  you  with  your  itinerary. 
The  electronic  memorandum  program  may  be  used 
for  this  task.  Another  format  could  be  that  of  a 
calendar;  each  day-block  would  be  filled  with  things 
to  do.  Is  there  something  you  must  do  periodically, 
but  often  forget?  Program  the  computer  to  au- 
tomatically remind  you  each  time. 

A  program  could  also  printout  a  daily  appoint- 
ment calendar  of  your  custom  design.  It  could  in- 
clude beginning  and  ending  times,  time  intervals, 
and  provisions  for  recording  expenses,  and  com- 
ments. Incorporate  the  day-of-the-week  program 


found  in  this  chapter. 

The  professional  may  use  a  more  sophisticated 
program  for  the  purposes  of  time  billing  for  clients. 
The  computer  can  also  be  used  as  a  medication 
reminder,  signaling  with  an  audible  alarm,  for  those 
on  complex  therapeutic  regimens. 

PHONE  TIMER 

When  you  are  making  long  distance  phone 
calls,  keeping  track  of  the  elapsed  time  can  save  you 
a  considerable  amount  of  money.  Usually,  the  first 
one  or  three  minutes  is  charged  a  flat  rate,  but  for 
the  remainder  of  the  call  the  charges  are  updated  by 
the  minute.  A  countdown  timer  that  makes  use  of  a 
timing  loop,  for  example  FOR  X  =  1  to  500:  NEXT 
X  (which  requires  approximately  1  second),  can 
display  the  amount  of  time  remaining  until  the  next 
charge.  Also,  a  record  could  be  kept  of  the  number 
called  and  the  cost  for  the  call,  for  use  with 
income-tax  deductions  or  for  comparison  with  tele- 
phone bill.  The  program  in  Listing  1-7  will  time 
your  calls  and  keep  track  of  the  charges. 


Listing  1-7:  The  Telephone  Call  Timer  Program 


5  PRINT  CHR$(H7) 

10  REM  LONG  DISTANCE  TELEPHONE  CALL  TALLY 

INPUT  "NEED  TELEPHONE  TIPS";A$ 

IF  A$="YES"  THEN  G0SUB  300 
40  PRINT  "TELEPHONE  COST  TALLY" 
50  INPUT  "IS  THIS  AN  OPERATOR  ASSISTED  CALL";A$ 
60  IF  A$="YES"  THEN  INPUT  "ENTER  ADDITIONAL  CHARGE" ;  AD -.GOTO  70 
65  AD=0 

70  INPUT  "ENTER  INITIAL  FLAT  RATE";B 
75  B=B+AD 


20 
30 
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80  INPUT  "ENTER  ADDITIONAL  CHARGE  PER  MINUTE" ;C 

85  PRINT  "IF  USING  A  DISCOUNT  LONG  DISTANCE" 

87  PRINT  "SERVICE  ENTER  DISCOUNT,  OTHERWISE  ENTER  '0'" 

90  INPUT  "ENTER  DISCOUNT  AS  A  PERCENTAGE" ;D 

100  D=D*.01 

110  PRINT  "TO  BEGIN  TIMING  PRESS  'RETURN'" 

120  PRINT  "TO  END  TIMING  PRESS  'RUN/STOP'" 

130  INPUT  A$ 

135  PRINT  CHR$(147) 

140  PRINT  TAB(80)"ELAPSED  MIN .   CURRENT  COST  SECONDS" 

150  S=60:B=B-B*D:T=0 

155  PRINT  CHR$(19); 

160  PRINT  CHR$(19); 

162  PRINT  TAB(160)T,,B,S; 

165  PRINT  CHR$(157)CHR$(32) 

170  FOR  X=l  TO  900:NEXT  X:REM  TIMING  LOOP 

180  S=S-1 

190  IF  S=0  THEN  T=T+1 :S=60:G0T0  210 

200  GOTO  160 

210  B=B+C-C*D 

220  GOTO  160 

300  PRINTCHR$(A47):PRINT  "ALL  CALLS  HAVE  AN  INITIAL  RATE  PERIOD" 

301  PRINT  "OF  ONE  MINUTE.   ADDITIONAL  CHARGES" 

302  PRINT  "TO  DIRECT  DIAL  RATES  ARE  AS  FOLLOWS:" 

303  PRINT 

304  PRINT  "CREDIT  CARD  CALLS:" 

305  PRINT  "  CUSTOMER  DIALED       $  .60  1-10  MI." 

306  PRINT  "  CALLING  CARD  CHARGES  $  .80  11-22  MI" 
308  PRINT  "  $1.05  23-3000  " 
310  PRINT  "OPERATOR  ASSISTED  CALLS:" 

312  PRINT  "  $  .75  1-10  MI." 

314  PRINT  "  $1.10  11-22  MI" 

315  PRINT  "  $1.55  23-3000" 

316  PRINT  "PERSON-TO-PERSON:       $3.00  ALL  MILES" 
318  PRINT 

320  PRINT  "DISCOUNT  TIMES  FOR  CALLING  ARE:" 

330  PRINT  "60%  11PM-8AM  NIGHTLY/8 AM  SATURDAY  THRU   5PM  SUNDAY  AND  HOLIDAYS" 

340  PRINT  "40%  5PM-11PM  MONDAY  THRU  FRIDAY/5PM-11PM  SUNDAY" 

350  PRINT -.RETURN 


TELEPHONE  FILE,  DIALER,  For  those  with  a  hardware  bent,  the  addition  of 

AND  ANSWERING  MACHINE  a  pulse  or  tone  dialing  circuit  for  a  modem  with 

Listings  of  emergency  and  frequently  used  automatic  dialing  capability  could  allow  a  computer 

telephone  numbers  could  be  stored  if  the  list  is  to  search  and  then  automatically  dial  a  desired 

sufficiently   long  to  warrant  computer  search  number-   In  connection  with  a  burglar/security 

capabilities  alarm  system,  the  computer  could  be  instructed  to 

The  data  strings  used  to  store  this  information  dial  the  Police  or  fire  departments  and  deliver  a 

could  be  formatted  as  follows:  tape-recorded  message.  You  could  also  construct  a 

HOSPITAL  AMBULANCE  computer-controlled,   programmable  telephone 

identifier     '  additional  '  answering  machine  with  capabilities  far  exceeding 

related  identifier  those  on  the  market' 

(to  cross-reference)  GREETING  CARD/INVITATION  LIST 

643-1998  *  643-1997  -  tel.  numbers  A  mailing-list  program  could  be  used  to  ad- 
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dress  your  Christmas  greeting  cards.  If  your  list  is  you  are  asked  to  rate  the  favor  ability  of  each  factor 

large  enough,  the  computer  could  sort  zip  codes,  on  a  scale  often.  This  data  is  then  analyzed,  and  the 

allowing  you  to  send  your  cards  under  the  bulk  mail  outcome  with  the  highest  "favorability"  score  for 

rate.   (This  would  probably  only  be  practical  for  the  most  important  factors  is  the  one  chosen  as  the 

businesses  with  large  customer  files.)  Additionally,  final  decision. 

the  computer  could  print  a  short  "hello"  note  on  the  The   most    tavorable   decision   will  have  the 

back  of  each  card.  The  same  idea  could  be  applied  to  highest  score,  computed  by  summing  the  "rate  of 

producing  an  invitation  list  for  a  party  or  meeting.  favorabilitv"  multiplied  by  the  relative  importance 

Similarly,  a  list  of  dates  of  birthdays  and  an-  for  each  factor. 
niversaries  could  be  stored  and  each  month  could  For  example,   if  you  had  several  locations  in 

remind  you  of  the  important  dates  for  the  upcoming  mind  for  building  a  home  and  could  not  come  to  a 

month.  decision,  you  could  form  the  following  chart  of  fac- 
tors for  making  1  he  decision;  these  factors  would  be 

PERSONAL  TIME  MANAGEMENT  SYSTEM  inputted  to  the  decision-making  program. 

A  personal  time  management  system  would  Shopping:    are   there    adequate    facilities 
assist  you  in  planning  the  most  effective  schedule  nearby0 

for  completing  a  list  of  tasks.  Input  could  include  the  <jhurdles:  arc  lhev  available  and  convenient? 

description  of  each  goal,  the  priority  of  that  goal  Neighbors:  are  they  likely  to  be  compatible 
(using  A,  B,  or  C  to  represent  categories  of  impor-  xvjt}-,  Vuur  |,fr^!vjr^ 

tance)  and  the  deadline  date.  The  program  could  p()lice  and  fire  protection:  are  they  adequate 
use  PERT  Program  Evaluation  and  Review  f()r  |jle  art-r' 

Technique  or  critical  path  analysis  to  plan  and  out-  Schools:   are  the  schools  your  children  will 
put  a  schedule  most  evenly  distributing  the  work  attend  nearby0 

load.  PERT  is  described  in  numerous  computer  Hospital:  is  there  a  medical  center  nearbv? 

programming  texts  and  PERT  programs  are  avail-  Hazards:  are  there-  hazards  such  as  oil  tanks  or 
able  for  many  personal  computers.  Many  people  streams  thai  might  overflow? 

have  found  that  they  can  accomplish  much  more  if  Recreation:  are  there  suitable-  facilities  within 
they  make  schedules  and  deadlines  for  themselves;  walking  distance? 

PERT  analysis  will  make  that  all  the  more  simple.  Traffic:  are  the  streets  quiet  and  safe? 

Transportation:  is  public  transportation  avail- 
DECISION  MAKER  abk>? 

Complex  decision  making  may  be  facilitated  Lay  of  land  and  landscaping:  is  the  land  well- 
through  the  use  of  the  computer.  In  the  program  in  drained  and  not  subject  to  erosion? 

Listing  1-8,   the  computer  first  requests  you  to  Water:  is  there  an  adequate  pressure  and  is  it 
enter  a  list  of  the  factors  involved  in  making  a  drinkable? 

decision.  Next, you  are  asked  to  rate  the  relative  Nuisances:  are  there  nearby  sources  of  exces- 
importance  of  eachof  these  factors  on  a  scale  often.  sive  noise,  smoke,  soot,  dust,  or  odors 

Finally,  for  each  possible  outcome  to  the  decision,  that  will  degrade  your  environment? 


Listing  1  -8:  The  Universal  Decision 

Making  Program 

5  PRINT  CHR$(147) 

10 

PRINT  "THE  UNIVERSAL  DECISION  MAKINC 

MACHINE" 

15 

CLR 

20 

DIM  A$(100),B(100),C(100),I 

3$(100) 

30 

PRINT  "ENTER  THE  NUMBER  OF 

FACTORS  t 

SED  IN" 

35 

INPUT  "MAKING  THE  DECISION 

' ;  NU 
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40  PRINT  "ENTER  FACTORS  AND  RELATIVE  IMPORTANCE  " 

45  PRINT  "ON  SCALE  OF  TEN:" 

50  FOR  X=l  TO  NU 

60  PRINT  "#";X;"  ";:INPUT  A$(X),B(X) 

70  NEXT  X 

80  INPUT  "ENTER  NUMBER  OF  POSSIBLE  OUTCOMES:  ";X 

90  PRINT  "ENTER  NAME  OF  EACH  OUTCOME:" 

100  FOR  1=1  TO  X 

110  PRINT  "#";I;"  ";: INPUT  D$(I) 

120  NEXT  I 

130  PRINT  "NOW,  LET'S  RANK  EACH  FACTOR  FOR  EACH" 

135  PRINT  "POSSIBLE  OUTCOME:" 

140  FOR  1=1  TO  X 

150  PRINT  "FOR  OUTCOME  #";!;"  ";D$(I);'\" 

160  PRINT  "RANK  THESE  FACTORS  ON  A  SCALE  OF  TEN:" 

170  FOR  J=l  TO  NU 

180  PRINT  A$(J); : INPUT  R 

185  C(I)=C(I)+B(J)*R 

190  NEXT  J 

200  PRINT 

210  NEXT  I 

220  PR TNT 

230  PRINT  "RANKINGS  OF  OUTCOMES  ARE  (HIGHEST  " 

235  PRINT  "RANKING  =  BEST  DECISION):" 

240  FOR  1=1  TO  X 

250  PRINT  D$(I),C(I) 

260  NEXT  I 

270  END 


If  this  process  is  still  too  complex,  try  this  If  you  need  help  in  making  a  decision  that  many 

program:  people  have  to  make  at  least  once  in  a  lifetime,  you 

may  want  to  use,  the  program  in  Listing  1-9  which 

determines  the  economic  incentive  for  trading  off  a 

5     PRINT  "THE  DECISION  IS:"  gas  guzzling  car  for  a  new,  more  economical  car 

10     X  =  RND(0):  IF  X<  .5  PRINT  "NEGATIVE"      sooner  than  you  would  if  gas  prices  were  not  a 

ELSE  PRINT  "AFFIRMATIVE"  factor. 


Listing  1-9:  The  Gas  Guzzler  Program 


10  PRINT  CHR$(147);TAB(45)"SH0ULD  YOUR  GAS  GUZZLER  G0?":PRINT 

20  PRINT  "DETERMINES  THE  ECONOMIC  INCENTIVE  " 

25  PRINT  "OF  TRADING  IN  YOUR  " 

30  PRINT  "GAS  GUZZLER  FOR  A  MORE  ECONOMICAL  CAR": PRINT 

40  PRINT"ENTER  NEW  CAR'S  MPG , CURRENT  " 

45  INPUT"CAR'S  MPG";R,M 

50  PRINT"ENTER  COST  OF  NEW  CAR  IN" 

55  INPUT"DOLLARS";C 

60  PRINT"ENTER  AVERAGE  NO.  OF  MILES  YOU  DRIVE" 

65  INPUT"PER  YEAR";D 

70  PRINT"ENTER  CURRENT  PRICE  PER  GALLON  OF  " 

75  INPUT"GASOLINE";P 

80  R=R/(R-M):Y=(C*R*M)/(D*P) 

600  PRINT:PRINT"IF  ";INT(Y);M  YEARS  IS  GREATER  THAN  THE" 

605  PRINT"NUMBER  OF  YEARS  YOU" 

610  PRINT  "WERE  PLANNING  ON  KEEPING  YOUR  CAR,  " 


14 


615 

PRINT 

"YOU 

SHOULD  STICK  WITH" 

620 

PRINT"Y0UR 

GAS 

GUZZLER  FOR 

THE 

TIME  YOU" 

625 

PRINT' 

'NORMALLY 

WOULD  HAVE" 

630 

PRINT"KEPT 

IT. 

OTHERWISE, 

YOU 

SHOULD  TRADE   " 

635 

PRINT' 

'IT   IN  NOW." 

640 

END 

HEALTH 

Your  personal  computer  can  even  help  you 
maintain  your  health.  A  listing  of  the  caloric  or 
nutrient  content  of  various  foods  could  be  stored 
and  subsequently  referenced  for  determining  the 
nutritive  value  of  the  food  you  eat.  Additionally, 
data  on  the  sugar  or  salt  content  of  foods  could  be 
stored  for  the  diabetic  or  person  on  a  salt-free  diet. 
Of  course,  such  a  program  lends  itself  well  to  diet 
planning. 

The  "Nutritive  Value  of  Foods,"  Home  and 
Garden  Bulletin  No.  72,  Agricultural  Research 
Service,  is  an  excellent  source  of  nutritive  values 
for  all  foods  and  is  available  from  the  superinten- 
dent of  Documents,  U.S.  Govt.  Printing  Office, 
Washington,  D.C. -Stock  #001-000-03667-0.  It 
lists  the  water,  calorie,  protein,  fat,  carbohydrate, 
mineral,  and  vitamin  composition  of  all  foods. 

A  low-calorie  diet-planning  program  could 
compute  the  number  of  calories  you  use  per  day  (on 
the  basis  of  weight,  sex,  height,  and  activities).  Of 
course,  if  you  eat  more  calories  than  you  use  up  in 
energy,  you  build  up  reserves  in  the  form  of  fat. 
Thus,  weight  control  is  primarily  based  on  calorie 
balance.  The  amount  of  weight  you  could  lose  by 
either  reducing  intake  or  increasing  activities 


would  be  mathematically  calculated.  The  following 
data  should  be  helpful  in  writing  a  program  to  help 
you  lose  weight  or  maintain  health  through  exer- 
cise. 

A  complete  nutritional  analysis  program  would 
allow  you  to  input  the  types  and  amounts  of  foods 
you  have  eaten  during  the  day,  would  compute  the 
total  intake  of  proteins,  carbohydrate,  fats,  fiber, 
vitamins,  and  minerals,  and  would  determine  your 
average  daily  intake  of  each  per  day.  Similarly,  it 
would  compute  your  average  energy  expenditure 
(see  Table  1-1)  and  then  subtract  this  from  your 
average  daily  nutrient  intake  to  determine  your 
calorie  balance  and  to  compare  your  intake  with  the 
recommended  daily  allowances  for  your  age,  sex, 
and  weight  (see  Table  1-2).  Thus,  areas  for  im- 
provement could  be  easily  identified.  A  diet  plan 
could  then  be  determined  to  achieve  these  im- 
provements. 

One  hobbyist  uses  a  computer  to  determine  his 
pulse  rate  and  lead  him  through  an  exercise  ses- 
sion, acting  as  the  coach  and  timer.  Along  similar 
lines,  another  hobbyist  computes  the  aerobic  points 
he  earns  in  bicycling. 

A  general  purpose  data  plotting  subroutine 
could  graph  morning  resting  pulse  on  the  X  axis 


Table  1-1 

Energy  Consumption  Table. 

Intensity 

Heart 

Respiration 

Energy  Consumption 

of  Exercise 

(Beats  Minute) 

(Breaths/Minute) 

(Calories/Hour) 

maximum 

200 

50 

1440 

very 

150 

30 

1008 

heavy 

140 

25 

864 

fairly  heavy 

130 

20 

720 

moderate 

120 

18 

576 

light 

110 

16 

432 

very  light 

100 

14 

288 

resting 

70 

10 

100 

15 


Mean  heights  and  weights  and 

recommended  energy  intake 

Category 

Age 

Weight 

Height 

Energy  needs  (with  range) 

(years) 

(kg) 

(lb) 

(cm) 

(in) 

(kcall)                (MJ) 

Infants 

0.0-0.5 

6 

13 

60 

24 

kg  x  115  (95-145)  kg  x  .48 

0.5-1.0 

9 

20 

71 

28 

kg  x  105  (80- 135)  kg  x  .44 

Children 

1-3 

13 

29 

90 

35 

1300  (900-1800)       5.5 

4-6 

20 

44 

112 

44 

1700  (1300-2300)    7.1 

7-10 

28 

62 

132 

52 

2400  (1650-3300)  10.1 

Males 

11-14 

45 

99 

157 

62 

2700  (2000-3700)  1 1 .3 

15-18 

66 

145 

176 

69 

2800  (2100-3900)  11.8 

19-22 

70 

154 

177 

70 

2900  (2500-3300)  12.2 

23-50 

70 

154 

178 

70 

2700  (2300-3100)  11.3 

51-75 

70 

70 

178 

154 

2400  (2000-2800)  10.1 

76  + 

70 

154 

178 

70 

2050(1650-2450)    8.6 

Females 

11-14 

46 

101 

157 

62 

2200(1500-3000)    9.2 

15-18 

55 

120 

163 

64 

2100(1200-3000)    8.8 

19-22 

55 

120 

163 

64 

2100(1700-2500)    8.8 

23-50 

55 

120 

163 

64 

2000(1600-2400)    8.4 

51-75 

55 

120 

163 

64 

1800  (1400-2200)    7.6 

76+ 

55 

120 

163 

64 

1600(1200-2000)    6.7 

Pregnancy 

+  300 

Lactation 

+  500 

One  gram  of  Carbohydrate  = 

4  calories 

One  gram 

of  Fat  =  9  calories 

One  gram 

of  Protein 

=  4  calories 

Table  1-2.  Recom- 
mended Caloric  Intake  Table. 


versus  minutes  run  previous  day  on  the  y  axis, 
miles  run  versus  subjective  feeling  at  end  of  day,  or 
many  other  inputs  to  allow  you  to  see  where  you've 
been  and  where  you  are  going! 

Listing  1-10  is  a  simple  program  that  will  help 
you  calculate  your  pulse  rate. 

The  beginning  runner  is  often  unsure  how  fast 
he  should  run.  Pulse  taking  can  be  helpful  to  assure 
beginners  that  they're  doing  the  right  amount  of 


work— not  too  much  or  too  little.  First,  determine 
your  base  training  pulse  using  the  formula  [220- 
(your  age)]  x  .65.  Anyone  who  makes  sure  that  his 
or  her  pulse  does  not  rise  above  this  value  is  in  the 
safety  zone  where  the  heart  is  being  strengthened 
rather  than  overtaxed. 

SHORTHAND  TRANSLATOR 

You  could  develop  a  shorthand  system  that 


Listing  1-1 

0:  The  Pulse  Rate  Program 

5  PRINT  CHR$(147) 

10 

PRINT 

"CALCULATION  OF  PULSE  RATE   (BEATS/MIN)" 

15 

INPUT 

"ENTER  YOUR  AGE";A1 

20 

PRINT 

"PRESS   ANY   KEY  FOR   EACH  BEAT" 

:X=1 

:N=0 

25 

INPUT 

"PRESS  RETURN  TO  BEGIN" ;A$ 

30  GET  A$ 

:IF  X=2000  THEN   60: REM  CHANGE 

FOR 

COMPUTER'S   SPEED 

40 

IF  A$= 

""  THEN  X=X+1:G0T0   30 

50 

N=N+1: 

GOTO   30 

60 

PRINT 

"THE  NUMBER  OF  BEATS/MIN="  ;N* 

2 

70 

PRINT 

"YOUR  TRAINING  PULSE  =";INT(( 

.6)* 

(220-A1)) 

80 

END 
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Character 

Word 

Suffix 

Character 

Word 

Suffix 

A 

and 

able 

V 

very 

ver 

B 

been 

bility 

W 

with 

ward 

C 

can 

cial 

X 

experience 

D 

down 

day 

Y 

you 

E 

even 

ent 

Z 

the 

zation 

F 

from 

ful 

0 

zero 

G 

good 

gnt 

1 

one 

H 

have 

hood 

2 

two 

1 

into 

ing 

3 

three 

J 

just 

4 

four 

K 

know 

5 

five 

L 

like 

less 

6 

six 

M 

more 

ment 

7 

seven 

N 

not 

ness 

8 

eight 

0 

other 

ous 

9 

nine 

P 

people 

! 

hundred 

Q 

quite 

@ 

thousand 

R 

right 

rent 

# 

million 

S 

said 

self 

$ 

dollar 

T 

that 

tion 

% 

percent 

U 

united 

ugh 

t 

cent 

Table  1-3.  Basic  Steno 
Character  Assignment  Chart. 


your  computer  could  be  programmed  to  understand 
and  translate.  The  system  could  be  similar  to  that 
used  by  court  reporters,  in  which  a  single  key  rep- 
resents a  word  or  part  of  a  word.  In  this  manner,  you 
could  quickly  commit  your  thoughts  to  paper,  and 
the  computer  could  quickly  analyze  the  shorthand 
and  print  the  English  equivalent. 

The  basic  stenographer's  character  and  word 
assignment  is  given  in  Table  1-3. 

In  a  like  manner,  a  machine  language  program 
could  translate  a  single  keystroke  into  a  full  com- 
mand. For  instance,  such  a  program  could  translate 
a  CONTROL  P  or  shifted  P  to  the  word  PRINT, 
thereby  facilitating  the  input  of  a  program. 

KITCHEN  INVENTORY 

A  file  of  all  food  items  on  hand  (pantry  inven- 
tory) could  be  useful  in  determining  whether  or  not 
a  given  recipe  can  be  prepared.  As  each  item  is 
added  or  subtracted,  the  transaction  would  be  en- 
tered into  the  computer.  If  a  desired  level  of  inven- 
tory is  specified,  the  computer  could  automatically 
print  out  a  shopping  list  of  items  that  are  below 
desired  quantity  levels.  An  inventory  program  of 
this  type  would  be  best  suited  for  the  gourmet  cook 
who  must  have  a  wide  variety  of  seasonings  and 


other  ingredients  on  hand.  The  inventory  of  a  wine 
collection  or  food  in  the  deep  freezer  may  also  be 
maintained. 

RATING  CALCULATIONS 

An  equation  to  determine  a  rating  for  a  par- 
ticular stock,  car,  horse,  home,  or  any  item  of  value 
could  be  computerized  if  it  is  referred  to  often  or  is 
complex.  For  example,  the  horse  racing  fan  could 
use  the  following  empirically  derived  equation  to 
determine  an  objective  rating  for  a  particular  horse: 

Rating  =  (W  4-  P/3  +  S/6)  x  100/R  +  E/850 
where  W  =  the  number  of  wins 

P  =  the  number  of  places 

S  =  the  number  of  shows 

R  =  the  number  of  races 

E  =  the  amount  of  earnings  in  dollars 
Rating  equations  are  empirically  derived  or 
are  determined  by  finding  the  statistical  correlation 
between  a  set  of  factors  and  the  outcomes  that  the 
factors  influence. 

INVENTORY  OF  POSSESSIONS 

A  file  of  your  personal  property  could  be  stored 
in  computer  format  for  insurance  purposes  or  for 
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determining  your  net  worth.  A  database  pro- 
gram could  record  the  date  of  purchase,  the  place  of 
purchase,  the  length  of  the  warranty,  description  of 
item,  price,  serial  number,  and  model  number.  For 
instance,  you  could  set  up  a  simple  database  for 
tracking  possessions  by  using  these  four  fields: 
date,  store,  item,  and  price.  This  information  could 
be  entered  from  sales  receipts  or  from  your 
checkbook.  At  the  end  of  the  year,  the  database 
could  be  printed  and  a  backup  disk  or  cassette  put  in 
safe  keeping.  This  could  save  you  $10,000  or  more 
in  the  event  of  a  major  disaster,  because  you  will 
have  excellent  documentation  of  what  you've 
owned. 

The  computer  may  also  be  useful  in  comparing 
various  insurance  policies  to  determine  which  plan 
offers  what  you  need  at  the  lowest  cost.  Profession- 
ally prepared  insurance-planning  programs  are 
available  for  a  variety  of  personal  computers. 

The  advantage  to  using  a  personal  computer  is 
that  items  may  be  easily  added,  deleted,  or 
categorized,  and  a  cassette  or  floppy  disk  copy  of 
the  inventory  may  be  stored  in  a  safe-deposit  box.  If 
you  own  a  business,  use  this  type  of  program  to 
inventory  your  business  equipment. 

INDEX  TO  IMPORTANT  LITERATURE 

Your  favorite  lines  of  literature,  passages  from 


the  Bible,  quotations,  scientific  and  business  jour- 
nal references,  anecdotes,  and  other  literary  mis- 
cellanea could  be  collected,  categorized,  cross- 
referenced,  and  indexed  for  rapid  retrieval.  A 
specialized  database  program  could  be  used  for  this 
purpose;  see  the  database  demonstration  program 
at  the  end  of  this  chapter.  Sophisticated  database 
programs  are  commercially  available  for  searching 
the   King  James  Bible  for  selected  passages. 

DAY  OF  THE  WEEK  CALCULATION 

Calculation  of  the  day  of  the  week  corre- 
sponding to  a  given  date  is  useful  to  the 
businessman,  vacation  planners,  historians,  and 
others.  For  the  sake  of  curiosity,  some  have  found 
amazing  congruencies  between  the  days  on  which 
U.S.  Presidents  were  born  and  other  significant 
events  in  history. 

To  calculate  the  day  of  the  week  for  a  specific 
date  in  the  twentieth  century,  either  use  the  pro- 
gram in  Listing  1-11  or  use  the  following  formula: 

N  =  D+M+Y[(0.8(2M+1)]  +  [Y/4] 
where  D  =  day  of  the  month 

M  =  Month,  where  March  is  considered  the 
first  month,  April  the  second,  and  Feb- 
ruary the  twelfth 

Y  =  Last  two  digits  of  the  year 


Listing  1-11:  The  Day  of  the  Week 

Program 

5  PRINT  CHR$( 147) 

10 

REM  CALCULATION  OF  THE 

DAY  OF  THE  WEEK 

CORRESPONDING 

TO 

A  GIVEN  DATE 

20 

REM  APPLICABLE  TO  ANY 

DATE  IN  THE  20TH 

CENTURY 

30 

INPUT  "ENTER  THE  MONTH 

,DAY,YEAR  (MM, 

DD 

,YY)  ",M 

,D,Y 

33 

IF  M=9  THEN  M=M-7:G0T0 

50 

34 

IF  M=4  THEN  MzM+1 :G0T0 

50 

35 

IF  M  =  2  AND  INT(Y/4)OY/4  THEN  M  =  M-1: 

GOTO  50 

37 

IF  Mz2  THEN  MzM+4:G0T0 

50 

40 

IF  M>2  THEN  M=M-2:G0T0 

50 

45 

MzM+10:Y=Y-1 

50 

N=D+M+Y+INT( . 8*(2*(M+1 ))+INT(Y/4)) 

60 

A=(N/7-INT(N/7) ) *7  .  1 

70 

FOR  XzO  TO  6 

80 

READ  A$(X) 

90 

NEXT  X 

10C 

)  PRINT  "THE  DAY  IS  ";A$(A) 

1  1C 

)  INPUT  "PRESS  ENTER  TO 

END";EN$:END 

12C 

)  DATA  SATURDAY, SUNDAY, I 

MONDAY, TUESDAY 

, WEDNESDAY, 

THURSDAY 

FRIDAY 
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[  ]  =  The  integer  part  of  the  result 

Next,  divide  the  sum  N  by  7.  The  remainder  from 
the  division  gives  the  day  of  the  week.  Count  0  as 
Sunday,  1  as  Monday,  and  so  on. 

Programs  to  calculate  the  date  of  Easter  for 
forthcoming  years  have  been  written,  and  this  re- 
mains an  interesting  programming  challenge; 
hint— incorporate  the  above  formula. 

A  simpler  program  could  calculate  the  day  of 
the  year  for  a  given  date;  the  businessman  may  find 
such  calculations  useful. 

FOOD  STORE  SHOPPING  AID 

Your  programmable  calculator  can  sum  and 
categorize  prices  and  types  of  items  as  they  are 
removed  from  the  shelf  at  the  supermarket.  Provi- 
sion could  be  made  for  categorizing  items  into 
meat,  groceries,  produce,  and  taxable  subdivi- 
sions. Additionally,  there  may  be  provisions  for 
multiple  entries,  unit  price  calculations  and  com- 
parisons, error  correction,  and  a  warning  if  a  preset 
cash  limit  has  been  exceeded.  Outputs  could  in- 
clude total  cost,  tax,  item  count,  and  subtotals  in 
each  category. 

COUPON  FILE 

For  those  who  have  the  money-saving  habit  of 
collecting  food  coupons,  a  computerized  list  of  your 
coupons  could  be  helpful.  Enter  each  coupon  by  its 
amount,  brand  name,  product  name,  and  location  in 
your  coupon  folders  or  envelopes.  Next,  enter  your 
shopping  list.  A  computer  search  between  your  list 
and  the  available  coupon  list  should  yield  a  roster  of 
coupons  that  may  be  used  and  where  each  one  is. 

Alternatively,  the  computer  could  store 
coupons  by  type  of  product,  using,  for  instance 
these  categories:  restaurants,  pasta  products, 
drinks,  cereals,  snacks,  meat,  poultry,  vegetables, 
fish,  condiments,  dairy  products,  baking  items,  pet 
food,  cosmetics,  paper  goods,  cleaning  products, 
medicine,  and  miscellaneous.  The  shopper  may  call 
up  the  list  of  coupons  within  a  category  to  select  the 
coupons  he  is  interested  in  and  find  out  which  brand 
name  each  one  is  filed  under. 


HOME  PUNNING 

An  interesting  program  could  be  written  to 
help  a  family  design  a  house  to  fit  their  needs;  the 
expense  of  a  house  certainly  justifies  an  in-depth 
analysis  of  the  design  before  construction  is 
started.  You  could  use  video  graphics  to  draw  and 
transform  basic  house  plans  (preferably  with  a  light 
pen). 

Square  footage  could  be  calculated  with  the 
following  guidelines  in  mind:  the  minimum  square 
footage  should  equal  the  number  of  family  members 
times  200;  the  desirable  square  footage  should 
equal  the  number  of  family  members  times  300.  An 
activity  list  such  as  the  one  below  could  be  included 
to  ensure  that  the  family's  activities  will  not  conflict 
and  that  there  will  be  provisions  for  all  activities. 
The  program  could  request  the  user  to  enter  the 
activities  that  are  to  be  done  in  each  room  and  the 
times  involved;  conflicts  could  thus  be  analyzed, 
and  the  plans  could  be  altered  accordingly.  The 
following  activities  could  be  included  in  the  pro- 
gram: 

Group  Activities 

1.  Lounging— indoors  and  outdoors 

2.  Television  watching 

3.  Listening  to  stereo,  tapes,  or  radio 

4.  Playing  a  musical  instrument 

5.  Meals 

6.  Children's  play  areas 

Social  Activities 

1.  Holding  a  meeting  in  the  home 

2.  Children's/adult's  games 

3.  Viewing  movies/slides 

4.  Visiting  with  guests 

Work  Activities 

1.  Meal  preparation  and  clean-up 

2.  Household  business 

3.  Food  preparation 

4.  Laundry 

5.  Ironing,  sewing,  or  drying  clothes 

6.  Workshop  area 

Private  Areas 

1.   Study  of  reading  areas 
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2.    Grooming  or  dressing  facilities 

Traffic  patterns  and  storage  requirements 
could  also  be  analyzed. 

Storage  requirements: 

Bedrooms  — minimum   of  4'    x    (V    x   24"  closet 

space/person 
Utility  areas  —  about  'Mi'  wide  and  KB"  deep 
Kitchen  — approximately  10  linear  feet  of  base  and 
wall  cabinets 

PRIVATE  INFORMATION  STOREHOUSE 

Almost  everyone  has  some  private  — financial 
information,  diaries,  or  important  numbers  — that 
they  would  like  to  keep  more  securely  than  in  a 
filing  cabinet.  A  program  could  be  written  to  store 
this  information  in  coded  form  so  that  it  could  only 
be  retrieved  by  someone  with  the  proper  password. 
Copies  of  such  data  could  be  stored  in  a  safe-deposit 
box. 

GENERAL  PURPOSE  CLOCK  OR  TIMER 

If  your  computer  w  equipped  with  a  real  time 
clock,  it  could  be  used  as  an  electronic  inner  or  time 
controller  for  scientific  research,  sporting  events, 
or  other  applications  requiring  a  stopwatch.  The 
capabilities  that  a  computer  has  but  a  stopwatch 
doesn't  include  the  automatic  storage  and  printout 
of  selected  tunes  and  the  automatic  control  of  in- 


struments or  other  devices  that  must  be  turned  on 
or  off  at  given  times. 

Even  without  a  real  time  clock,  your  computer 
can  still  keep  track  of  elapsed  time  for  long  distance 
telephone  calls  or  act  as  a  simple  timer  for  applica- 
tions in  which  accuracy  is  not  a  major  factor.  When 
they  are  not  using  their  computers  for  more  practi- 
cal tasks,  some  hobbyists  have  transformed  them 
into  very  expensive  clocks,  with  graphic  displays  of 
hour  and  minute  hands,  digital  displays,  simulated 
sundials,  or  even  sand  timers.  Digital  watch  cir- 
cuits may  be  interfaced  with  computers  to  facilitate 
time  keeping. 

BLOOD  ALCOHOL  CONTENT 

It  would  be  a  good  idea  to  calculate  your  blood 
alcohol  content  after  a  few  drinks,  before  attempt- 
ing to  drive.  The  formula  used  to  calculate  the 
percentage  alcohol  content  in  the  blood  is 


OZ  •  p  •  0.037 


C  = 


VV 


where     C  =  blood  alcohol  content  in  %  wt/vol 
OZ  =  ounces  of  drink  consumed 
p  =  proof 
W  =  body  weight  (lbs) 

The  program  in  Listing  1-12  will  automatically  cal 
culate  vour  blood  alcohol  content. 


Listing  1-12:  The  Blood  Alcohol  Content  Program 

5  PR  TNT  C 
10  PRINT 

HRSC  147)  :i 
"BLOOD  Al  ( 

EM  ('LI 

AR  ; 

-ORIT.N 

UN  n 

;nt  calculator" 

20  PRINT 

"IN  TERMS 

OP  UT 

out/ 

'VOLUME" 

30  PRINT 

"ENTER  1111 

Ni  :MBi 

.K   !'t 

o/.  CONSUMED,  Tl! 

,M 

35  INPUT 

"PRO0L  ()!■ 

'IHI-  ill 

INK" 

;  i  )./  ,  i  ' 

40  INPUT 

"ENTER  YOi 

R  l\!  ;( 

N  P0LNDS";W 

50  C=(0Z* 

P-.03  7 >/W 

60  PRINT 

"YOUR  i Si  i 

MA  i  LD 

BL(K 

'[;  ALCOHOL  CONTENT^ 

_?!  . 

C;"%WT/V0L" 

70  PRINT- 

SO  IP  C<  = 

.05  THEN  ( 

20 

90  IF  C>. 

35  AND  C  . 

1  THLV 

(SO 

LB  130 

100  IP  Cc- 

=  .  1  THIN  f 

OS  LB 

5i ) 

llO  END 

120  PRINT 

"A  LLVL1. 

Bi  'Low 

.05 

IS  NUT  CONSIDERED 

AS 

INTOXICATION": RETURN 

130  PRINT 

"A  LLVLL 

BR  TUT! 

N  J 

>5  AND  .  1  IS  " 

140  PRINT 

"CONS  I  DEI- 

LD  BOb 

IT  Rl 

INK  INTOXICATION" 

RETURN 

150  PRINT 

A  l.t.v  ni, 

,  *l  *  - ' 

R  Tf 

AN  .1  IS  CONCLUSIVE 

INTOXICATION" 

RETURN 

20 


CARPENTERS'  AND  MECHANICS'  HELPER 

Your  computer  can  expedite  the  numerous  cal- 
culations required  by  carpenters  and  mechanics 
when  they  perform  tasks  such  as  changing  the  di- 
mensions of  a  set  of  plans,  converting  anglo  to 
metric  measures  or  vice-versa,  and  estimating  the 
amount  of  building  materials  needed  in  many  other 
situations. 

Some  useful  formulae  include 

Anglo/metric  Conversions 

1  meter  =  39.37  inches 

=  3.281  feet 

=  1.0936  yards 
1  inch  =  2.54  cm 
1  foot  =  30.48  cm 

=  .3048  m 
1  yard  =  .9144  m 
1  mile  =  1609  m 

=  1.609  km 

Wall  Paper  Estimator 


N  = 


8640 


P   = 


W  •  (H  +  R)  W  •  N 

where  N  =  the  number  of  strips  in  one  roll 
W  =  the  width  of  the  paper 
H  =  the  height  of  the  wall 
R  =  the  repeat  length  of  the  pattern 
P  =  the  number  of  double  rolls  needed 
S  =  the  width  of  the  wall  to  be  covered 


Concrete  Block  Estimator 


N  = 


H  •  L  •  1.25 
125 


where  N  =  the  number  of  blocks 


H  =  the  height  of  the  wall 
L  =  the  length  of  the  wall 

Concrete  Yardage  Estimator 


Y  = 


L  •  W  •   T 
324 


where  Y  =  the  volume  of  concrete  in  cubic  yards 
L  =  the  length  (ft.) 
W  =  the  width  (ft.) 
T  =  the  thickness  (in.) 

CAR  MAINTENANCE 

CALCULATIONS  AND  RECORD  KEEPING 

In  addition  to  calculating  and  recording  your 
car's  miles  per  gallon,  the  computer  could  keep 
track  of  mileage  statistics  and  signal  you  when  a 
periodic  check-up,  overhaul,  or  oil  change  is  neces- 
sary. For  people  having  the  privilege  of  deducting 
automotive  expenses,  the  computer  could  keep 
tabs  on  amounts  spent. 

RAFFLE  TICKET  PRODUCER  AND  DRAWER 

If  your  organization  is  sponsoring  a  raffle 
drawing,  your  computer  could  print  out  serialized 
raffle  tickets  and  then  draw  the  winning  ticket  based 
on  a  random  number  generator. 

LIFE  EXPECTANCY  CALCULATOR 

Listing  1-13  presents  another  program  of 
interest  to  guests.  Your  life  expectancy  in  years  is 
calculated  on  the  basis  of  life  insurance  studies. 
This  program  is  interesting  to  run  with  data 
supplied  for  your  present  condition,  and  then  run 
with  data  about  yourself  assuming  you  had  kept 
your  New  Year's  resolutions  (stop  smoking,  lose 
weight,  and  so  on).  The  difference  in  years  is  often 
surprising. 


Listing  1-13:  The  Life  Expectancy  Calculation  Program 

5  PRINT  CHR$(147) 

10  REM  LIFE  EXPECTANCY  CALCULATOR 

20  REM  ESTIMATES  HOW  LONG  YOU  WILL  LIVE 
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30  REM  PROGRAM  IS  BASED  ON  SCIENTIFIC  DATA 

40  PRINT  "LIFE  EXPECTANCY  CALCULATION  FOR  ADULTS" 

45  PRINT  "20  -  65  YEARS  OF  AGE" 

50  PRINT  "TYPE  '1'  FOR  YES ,  '2'  FOR  NO  TO  ANSWER" 

60  A=72 

70  INPUT  "ARE  YOU  MALE";B 

80  IF  B=l  THEN  A=A-3:G0T0  90 

85  A=A+4 

90  PRINT  "DO  YOU  LIVE  IN  AN  URBAN  AREA" 

95  INPUT  "(POPULATION  >2  MILLION)" ;B 

100  IF  B=l  THEN  A=A-2:G0T0  110 

105  PRINT  "DO  YOU  LIVE  IN  A  TOWN" 

107  INPUT  "(POPULATION  <10,000)" ;B:IF  B=l  THEN  A=A+2 

110  PRINT  "IF  YOU  WORK  BEHIND  A  DESK  TYPE  '  1 '" 

120  PRINT  "IF  YOUR  JOB  REQUIRES  REGULAR,  HEAVY" 

125  INPUT  "PHYSICAL  LABOR  TYPE  '2"';B 

130  IF  B=l  THEN  A=A-3:G0T0  140 

135  IF  B=2  THEN  A=A+3 

140  PRINT  "IF  YOU  EXERCISE  STRENUOUSLY  MORE  THAN" 

145  PRINT"5  HALF-HOUR  SESSIONS  PER  WEEK" 

150  PRINT  "TYPE  T.   IF  YOU  DO  2-3  SESSIONS" 

155  PRINT  "PER  WEEK,  TYPE  '2\  OTHERWISE" 

157  INPUT  "TYPE  '3'";B 

160  IF  B=l  THEN  A=A+4:G0T0  170 

165  IF  B=2  THEN  A=A+2 

170  INPUT  "DO  YOU  LIVE  WITH  A  SPOUSE  OR  FRIEND" ;B 

180  IF  B=l  THEN  A=A+5:G0T0  190 

185  PRINT  "HOW  MANY  DECADES  HAVE  YOU  LIVED  WITHOUT" 

187  INPUT  "OTHERS  SINCE  25  YRS.  OLD";B:A=A-B 

190  PRINT  "DO  YOU  SLEEP  MORE  THAN  TEN  HOURS" 

195  INPUT  "PER  NIGHT" ;B 

200  IF  B=l  THEN  A=A-4 

210  PRINT  "IF  YOU  ARE  INTENSE,  AGGRESSIVE,  EASILY" 

215  PRINT  "ANGERED,  TYPE  '1';  IF  YOU  ARE  EASY-" 

220  INPUT  "GOING,  RELAXED,  FOLLOWER,  TYPE  '2"';B 

230  IF  B=l  THEN  A=A-3:G0T0  240 

235  IF  B=2  THEN  A=A+3 

240  PRINT  "IF  YOU'RE  HAPPY  TYPE  T;  UNHAPPY," 

245  INPUT  "TYPE  '2'";B 

250  IF  B=l  THEN  A=A+1:G0T0  260 

255  IF  B=2  THEN  A=A-2 

260  PRINT  "HAVE  YOU  HAD  A  SPEEDING  TICKET  WITHIN" 

265  INPUT  "THE  LAST  YEAR";B 

270  IF  B=l  THEN  A=A-1 

280  INPUT  "DO  YOU  EARN  MORE  THAN  $50,000/YEAR";B 

290  IF  B=l  THEN  A=A-2 

300  PRINT  "IF  YOU'VE  FINISHED  COLLEGE,  TYPE  '1';" 

305  INPUT  "GRAD  SCHOOL,  TYPE  '2':";B 

310  IF  B=l  THEN  A=A+1:G0T0  320 

315  IF  B=2  THEN  A=A+2 

320  PRINT  "IF  YOU'RE  65  OR  OVER  AND  STILL  WORKING," 

325  INPUT  "TYPE  T";B 

330  IF  B=l  THEN  A=A+3 

340  PRINT  "IF  ANY  OF  YOUR  GRANDPARENTS  HAVE  LIVED" 

345  INPUT  "TO  85  TYPE  '1'  ";B 

350  IF  B=l  THEN  A=A+2:INPUT  "DID  ALL  4  LIVE  TO  BE  80";B:IF  B=l  THEN  A=A+6 

360  PRINT  "DID  EITHER  OF  YOUR  PARENTS  DIE  OF  " 
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365  INPUT  "STROKE  OR  HEART  ATTACK  BEFORE  50"  ;B 

370  IF  B=l  THEN  A=A-4 

380  PRINT  "HAVE  ANY  OF  YOUR  PARENTS  OR  BROTHERS  OR  SISTERS  UNDER  50 

HAD  A" 

385  PRINT  "HEART  CONDITION,  CANCER,  OR" 

390  INPUT  "CHILDHOOD  DIABETES" ;B 

400  IF  B=l  THEN  A=A-3 

410  PRINT  "IF  YOU  SMOKE:  >2  PACKS/DAY  TYPE  '1';" 

415  PRINT  "1  -  2  PACKS/DAY,  TYPE  '2';" 

420  INPUT  "1/2  -  1  PACK/DAY  TYPE  '3';  OTHERWISE  TYPE  »4"';B 

430  IF  B=l  THEN  A=A-8:G0T0  440 

432  IF  B=2  THEN  A=A-6:G0T0  440 

434  IF  B=3  THEN  A=A-3 

440  PRINT  "DO  YOU  DRINK  THE  EQUIVALENT  OF  1/4  " 

445  INPUT  "BOTTLE  OF  LIQUOR/DAY" ;B 

450  IF  B=l  THEN  A=A-1 

460  PRINT  "IF  YOU  ARE  OVERWEIGHT  BY  >50  LBS.,  TYPE  'L',  30  -  50  LBS. 

,  TYPE  '2'" 

470  INPUT  "10  -  30  LBS.,  TYPE  '3',  OTHERWISE  TYPE  '4'  ";B 

480  IF  B=l  THEN  A=A-8:G0T0  490 

482  IF  B=2  THEN  A=A-4:G0T0  490 

484  IF  B=3  THEN  A=A-2 

490  PRINT  "IF  YOU'RE  MALE  AND  HAVE  AN  ANNUAL" 

495  PRINT  "CHECK-UP  TYPE  '1'  AND  TF  FEMALE,  TYPE" 

500  INPUT  "'1'  IF  YOU  SEE  A  GYNECOLOGIST  ANNUALLY"  ;B 

510  IF  B=l  THEN  A=A+2 

520  PRINT  "IF  YOU'RE  BETWEEN  30-40  TYPE  T;  40-50,  TYPE  '2';  50-60, 

TYPE" 

530  INPUT  "'3';  >70  TYPE  '4"';B 

540  A=A+B+1 

550  PRINT  "" 

560  PRINT  "YOUR  LIFE  EXPECTANCY  IS  ";A;"  YEARS." 

DATABASE  DEMONSTRATION 

Many  of  the  program  ideas  described  in  this 
chapter  can  be  implemented  with  a  general  purpose 
database  computer  program.  This  type  of  program 
should  be  able  to  store  information  pertaining  to 
many  items  on  a  cassette  tape  or  floppy  disk  and 
retrieve  selected  information. 

The  usual  method  of  storing  data  on  a  cassette 
or  disk  involves  the  use  of  one  string  of  information 
containing  several  fields  of  separate  data.  A  field  is 
the  memory  space  for  a  particular  type  of  data.  For 
example,  a  string  containing  five  fields  might  look 
like  this: 

Boolean  Algebra*Byte  Magazine*25*Schwartz* 
Feb  1978 

The  first  field  signifies  the  title  of  the  item  (in  this 
case  a  magazine  article);  all  of  the  strings  to  be 
stored  would  be  formatted  in  the  same  way,  with 
the  title  of  the  item  in  the  first  field.  Also,  a  limit  is 
usually  set  on  the  length  of  any  field  (so  that  the  data 
will  fit  neatly  on  a  cassette  or  disk).  If  the  informa- 


tion in  one  field  does  not  contain  enough  characters 
to  fill  the  allocated  space,  extra  spaces  are  added. 
The  longer  the  fields,  the  fewer  records  the  disk  or 
cassette  can  hold.  You'll  learn  to  make  fields  as 
short  as  possible  when  you  are  dealing  with  a  large 
data  base. 

The  second  field  in  the  example  above  contains 
the  name  of  the  source  of  the  item.  The  third, 
fourth,  and  fifth  fields  contain  the  page  number, 
author,  and  issue  date  respectively.  An  adequate 
database  program  should  be  able  to  search  through 
many  such  strings  and  output  those  that  contain 
items  you  want.  For  example,  you  can  store  an 
index  to  your  library  on  a  database  system  and 
subsequently  obtain  a  listing  of  all  the  references 
pertaining  to  the  stock  market  and  written  after  a 
specific  date.  You  would  simply  instruct  the  com- 
puter to  search  for  all  items  that  contain  stock  mar- 
ket in  a  certain  field  and  a  date  later  than  the  date 
specified  in  another  field.  Because  the  position  of 
each  field  in  all  strings  is  fixed,  the  computer  can 
search  through  a  string  (using  the  iMID$  command, 
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for  example)  to  the  beginning  of  the  proper  field:  database  management  program  are  summarized  in 

specific  information  can  easily  be  accessed  in  this  lines  1790-1850  in  the  program  in  Listing  1-14  and 

manner.  may  be  summoned  to  the  screen  by  typing  HELP  in 

The  variety  of  commands  available  in  a  response  to  COMMAND? 


Listing  1-14:  The  Database  Program 

10  REM  DATABASE  D013NSIRATTON  PROGRAM 

20  REM  MAY  BE  USED  TO  MAINTAIN  MAILING  LISTS,  OCLLHTICNS 

30  REM  INVENTORY,  ETC. 

40  PRINT  CHR$(147):PRINfrREMEMBER  THAT  THE  HELP  CEWOT  MMDES  INSMOTONS." 

50  REM 

70  REM  INITIALIZED  FOR  UP  TO  200  RECORDS  WITH  30  FIELDS  EACH 

80  REM 

90  REM  ALTER  THESE  DIM  STATEMENTS  TO  ALLOW  FOR  MORE  RECORDS 

100  DIM  M$(200),D$(200) 

110  DIM  P$(30),C$(31),F(31) 

120  PRINTMSELECT  :1)BEGIN  ANEW,2)L0AD  OLD  DATA  FILE" 

130  INPUT  V 

140  PRINTCHR$(147) 

160  IF  V=2  GOTO  1890 

170  Fl$="     ":C$="":P$(0)="BUFFER  EMPTY":N=0 

190  PRINT:PRINT 

200  PRINT"INPUT  FIELD  NAME,  FIELD  TYPE  ( A=ALPHA,N=NUMERIC)" 

210  REM 

220  FOR  1=1  TO  30 

250  PRINTI;")     " ; 

270  E$="":INPUT  E$,RS$ 

280  IF  E$=""  GOTO  420 

290  IF  (RS$="A,f)0R(RS$=f,Nff)  THEN  340 

330  PRINT"INCORRECT  SYNTAX,  PLEASE  REENTER" :GOT0270 

340  E$=LEFT$(E$+F1$,4)+"  "+RS$ 

380  GOSUB2470:REM  ROUTINE  TO  THROW  OUT  EXTRANEOUS  SPACES 

390  P$(I)=E$ 

400  NEXT  I 

410  GOTO  430 

420  P$(I)="END" 

430  PRINT:PRINTffTHE  RECORDS  AND  FIELDS  ENTERED  WERE:" 

460  F0RI=1T010 

470  IF  LEFT$(P$(I),3)="END"THEN  500 

480  PRINTI ;":";P$( I) 

490  NEXTI 

500  PRINT :G0T0540 

530  PRINT"INCORRECT  SYNTAX,  PLEASE  REENTER  YOUR  COMMAND" 

540  PRINT"ENTER  YOUR  COMMAND  (ENTER  HELP  TO  SEE  A  LIST  OF  AVAILABLE  COMMANDS)" 

545  INPUT  E$ 

550  N1=0:PRINT 

560  RESTORE 

580  READZ$,T 

590  IFZ$="##"THEN  530 

600  IFLEFT$(Z$,3)OLEFT$(E$,3)THEN580 

610  ON  T  G0SUB750, 1120, 1120, 1110,2090, 3340, 1310, 1220, 3180, 1120, 2620 

620  G0T0540 

630  DATA  ADD,  1, LIST, 2, CHANGE, 3, LABELS, 4, HELP, 5, END, 6, SEARCH, 7 
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640  DATA  SUM,8,SAVE,9,RUB0UT,10,S0RT,11,##,-1 

750  REM  ADD  RECORD  ROUTINE 

755  PRINTMBEGIN  ADDING  RECORDS.  TYPE  'END'  WHEN  FINISHED." 

760  N=N+1 

770  N1=N1+1 

780  E$="" 

790  PRINTN;")    "; 

810  FOR  1=1  TO  30 

820  IF  LEFT$(P$(I),3)="END"THEN  980 

830  PRINTTAB(7)P$(I);M:  "; 

840  RS$="" 

850  INPUT  RS$ 

860  IFRS$=""THENRS$="  " 

870  IFRS$=ffEND"THEN1060 

880  IFMID$(P$(I),6,1)<>"N"THEN920 

890  IFASC(RS$)>43  AND  ASC(RS$)<58  THEN  920 

900  PRINTMTHIS  IS  A  NUMEi  EC  FIELD— ENTER  NUMBERS  ONLY" :G0T0830 

920  REM 

950   IF  LEN(E$)+LEN(RS$)>245THEN1010 

960  IF  LEN(E$)+LEN(RS$)<=245THEN   E$=E$+CHR$(126)+RS$ 

970  NEXT   I 

980  P$=STR$(N) 

990  E$=P$+E$+CHR$(126) 

1000  G0T01030 

1010  PRINT"YOU  HAVE  EXCEEDED  THE  ALLOWED  RECORD  LENGTH,  PLEASE  REENTER. "G0T07 90 

1030  M$(N)=E$ 

1040  PRINT 

1050  GOTO  760 

1060  REM  END  OF  ADDITION  TO  RECORDS 

1070  N=N-1:N1=N1-1 

1090  PRINT"YOU  ADDED  ";N1;"  RECORDS." 

1100  RETURN 

1110  REM  ROUTINE  TO  LIST  RECORDS 

1115  OPEN  128,4 

1120  GOSUB2170:REM  DETERMINE  RECORD  RANGE  TO  LIST 

1125  IF  T=10THEN  1465 

1130  IFTO4THEN1360 

1135  INPUT"WOULD  YOU  LIKE  TO  TEST  LABEL  ALIGNMENT11  ;Z$ 

1137  IFZ$="NO"THEN1360 

1150  INPUT"ALIGN  PRINTOUT  AND  PRESS  RETURN  WHEN  READY" ;W9$ 

1155  CMD  128 

1157  FOR  1=1  TO  2 

1160  F0RJ=1T05 

1 1 70  PRINT"XXXXXXXXXXXXXXXXXXXXXXXXX" 

1180  NEXT  J 

1190  PRINT: NEXT  I 

1200  PRINT#128 

1205  CLOSE  128 

1207  INPUT"PRESS  RETURN  TO  PRINT  DATA";RE$ 

1210  G0T01360 

1220  REM  ROUTINE  TO  SEARCH  RECORDS  AND  PERFORM  SUMMATIONS 

1230  PRINT"ENTER  THE  NUMBER  OF  THE  FIELD  TO  BE  SUMMED" 

1235  INPUT  SM% 

1240  IF  MID$(P$(SM%),6,1)="N"  THEN1270 

1250  PRINT"INCORRECT  TYPE  OF  FIELD,  PLEASE  REENTER" 

1260  GOT01230 

1270  REM 

1271  PRINT"D0  YOU  WANT  TO  SUM  OVER  ALL  RECORDS ?(Y/N)" 
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1272  Sl$="" 

1275  INPUT  Sl$ 

1280  IFSl$O"Y"THEN1310 

1290  S%=0:GOT01330 

1310  S$="":S%=0:PRINT"ENTER  THE  FIELD  NUMBER  " 

1315  INPUT  S% 

1320  PRINT  "ENTER  THE  EXPRESSION  TO  BE  COMPARED" 

1322  INPUT  S$ 

1330  T1=1:SM=0:T2=N 

1360  F0RI=T1T0T2 

1370  RS$=M$(I) 

1410  E$=LEFT$(RS$,5) 

1420  T3=VAL(E$) 

1430  E$=RS$ 

1440  RS$=CHR$(126) 

1450  GOSUB3050.-REM  ROUTINE  TO  PARSE  STRING 

1460  GOT01490 

1463  REM  RUBOUT  COMMAND  ROUTINE 

1465  FD=T2-T1+1 

1470  F0RI=T2+1T0N+1 

1475  M$(I-FD)=M$(I) 

1480  NEXT 

1484  N=N-FD 

1488  RETURN 

1490  IFT<=4THEN1570 

1500  IFS%=OTHEN1520 

1510   IFC$(S%)OS$  THEN   1850 

1520  IFT=7THEN1650 

1530  PRINT"(";I;")"; 

1540  T3=VAL(C$(SM%)) 

1550  SM=SM+T3 

1560  G0T01850 

1570  ONT-1  G0T01650, 1650, 1580 

1580  REM  ROUTINE  TO  PRINT  LABELS 

1583  OPEN  128,4 

1585  CMD  128 

1590  F0RJ=1T05 

1595  IFC$(J)="END"THEN1620 

1600  PRINTC$(J) 

1610  NEXT  J 

1620  PRINT 

1625  PRINT#128:CL0SE  128 

1630  G0T01850 

1640  REM 

1645  PR INT" YOU  HAVE  EXCEEDED  THE  ALLOWED  RECORD  LENGTH,  PLEASE  REENTER. 

1650  PRINTI;")  " 

1670  F0RJ=1T010 

1680  IF  LEFT$(P$(J),3)="END"THEN1760 

1690  PRINTP$(J);":  ";C$(J) 

1700  IFTO3THEN1740 

1710  INPUTRS$ 

1720  IFRS$="-"THEN1740 

1730  C$(J)=RS$ 

1740  NEXT  J 

1750  REM 

1760  IFTO3THEN1850 

1770  P$=C$(0):REM  ROUTINE  TO  ADD  A  CHANGED  RECORD 
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1780  PRINTP$ 

1790  E$=P$+CHR$(126) 

1800  F0RJ=1T010 

1805  IF  LEN(E$)+LEN(C$(J))>245  THEN  1645 

1810  E$=*E$+C$(J)+CHR$(126) 

1820  IFP$(J)*,>END"  THEN  1840 

1830  NEXT  J 

1840  M$(I)=E$ 

1850  NEXT  I 

1860  IF  T<>8  THEN  1880 

1870  PRINT"THE  SUM  OF  RECORD  " ;P$(SM%) ;"=";SM 

1880  RETURN 

1890  REM  LOAD  DATA  FROM  DISK 

1900  J=-l 

1910  INPUT"ENTER  FILENAME" ;F$ 

1915  KP$=F$ 

1920  0PEN2 ,8 , 2 , "0: "+F$+" ,S ,R" 

1930  INPUT#2,E$ 

1940  J=J+1 

1950  INPUT#2,E$ 

1960  IF  E$="EOF"THEN1990 

1970  M$(J)=E$ 

1980  GOTO 1940 

1990  E$=M$(0) 

2000  RS$=CHR$(126) 

2010  GOSUB3040 

2020  F0RI=1T030 

2030  P$(I)=C$(I) 

2040  IF  LEFT$(P$(I),3)="END"  THEN  2060 

2050  NEXT  I 

2055  1=1-1 

2060  N=VAL(C$(I+1)) 

2070  CLOSE  2:GOT0540 

2090  REM  HELP  SEQUENCE 

2100  PRINTMCOMMANDS  AVAILABLE:" 

2150  PRINT"ADD:ADDS  RECORDS  TO  THE  FILE"  :PRINT"CHANGE: CHANGES  RECORDS  IN  FILE" 

2155  PRINT"RUBOUT: DELETES  A  RECORD  FROM  THE  FILE" :PRINT"LIST: LISTS  RECORDS" 

2156  PRINT"LABELS:LINE  PRINTS  CONTENTS  OF  FILE" :PRINT"SAVE: SAVES  DATA  ON  DISK" 

2157  PRINT"SORT: SORTS  RECORDS  INTO  ALPHANUMERIC  ORDER  BY  A  SPECIFIED  FIELD" 

2158  PRINT"SUM:SUMS  A  FIELD  OVER  A  GROUP  OF  RECORDS" 

2159  PRINT"SEARCH: FINDS  A  RECORD  CONTAINING  A  SPECIFIED  FIELD" 

2160  PRINT"HELP:  BRINGS  YOU  HERE"  :PRINT"END:  ENDS  THE  PROGRAM" 

2161  RETURN 

2170  REM  DETERMINE  THE  RANGE 

2180  IF  N=0  THENPRINT"EMPTY  FILE" 

2190  IFN=OTHEN  540 

2200  PRINT"ENTER  MODE:A(ALL) ,0(ONE) ,R(RANGE)" 

2210  INPUTE$ 

2220  IFE$<>"A"THEN  2260 

2230  T2=N:T1=1 

2250  G0T02430 

2260  IFE$<>"0"  THEN2310 

2270  INPUT"ENTER  THE  NUMBER  OF  RECORD" ;T1 

2280  IFT1>NTHEN2440 

2290  T2=T1 

2300  G0T02430 

2310  IFE$="R"THEN2340 

2320  PRINT" IMPROPER  SYNTAX,  PLEASE  REENTER" 
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2330  GOT02200 

2340  PRINT"INPUT  THE  LOWER  BOUND" 

2350  INPUT  Tl 

2360  IFTK1THENTU1 

2370  IFT1>N  THEN  2440 

2380  INPUT"INPUT  THE  UPPER  BOUND" ;T2 

2390  IFT2>N  THEN  2440 

2430  RETURN 

2440  PRINT"THERE  ARE  ONLY  M;N;M  RECORDS  IN  THIS  FILE" 

2450  G0T02200 

2460  REM 

2470  REM  ELIMINATE  EXTRANEOUS  SPACES  FROM  STRINGS 

2480  T1=LEN(E$):C$="  ":IFT1=0  THEN  2600 

2510  FOR  T2=2T0T1 

2520  IF  MID$(E$,T2-l,l)OC$  THEN  2550 

2530  E$=MID$(E$,2,T1-1) 

2540  NEXT  T2 

2550  T1=LEN(E$) 

2560  IF  T1=0  THEN  2600 

2570   IF  RIGHT$(E$,l)OC$  THEN   2600 

2580   E$=LEFT$(E$,T1-1) 

2590  G0T02570 

2600  RETURN 

2610  PRINT"PLEASE  REENTER  DATA" 

2620  INPUT  "INPUT  THE  FIELD  NUMBER  TO  BE  SORTED  ";S% 

2630  PRINT"THE  FIELD  NAME  IS  ";P$(S%) 

2633  PRINT"USE  LIST  TO  SEE  THE  SORTED  FILE" 

2660  T2=N:T1=1 

2670  T2=N 

2690  F0RI=T1T0T2 

2700  E$=M$(I) 

2710  RS$=CHR$(126) 

2720  G0SUB3040 

2730  D$(I)=C$(S%) 

2740  NEXT  I 

2750  IF  MID$(P$(S%),6,1)<>"A"  THEN  2780 

2760  SR%=1 

2770  G0T02820 

2780  IF  MID$(P$(S%),6,1)="N"  THEN  2810 

2790  PRINT"ERR0R:  THE  WRONG  FIELD  TYPE  WAS  ENTERED" 

2800  G0T0540 

2810  SR%=2 

2820  REM  SORT  ROUTINE 

2830  M=N 

2840  M=INT(M/2) 

2850  IFM=0THEN3020 

2860  J=l 

2870  K=N-M 

2880  I=J 

2890  L=I+M 

2900  IFSR%=2THEN2930 

2910  IF  D$(I)<D$(L)  THEN  2990 

2920  G0T02940 

2930  IF  VAL(D$(I))<VAL(D$(L))  THEN  2990 

2940  E$=D$(I) 

2942  D$(I)=D$(L) 

2944  D$(L)=E$ 

2950  E$=M$(D 
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2952  M$(I)=M$(L) 

2954  M$(L)=E$ 

2960  I=I-M 

2970  IFK1  THEN  2990 

2980  G0T02890 

2990  J=J+1 

3000  IFJ>K  THEN2840 

3010  G0T02880 

3020  G0T0540 

3040  REM 

3050  REM  STRING  PARSING  ROUTINE 

3060  K=-l 

3070  F0RJ2=1  TO  LEN(E$) 

3080  IF  RS$=MID$(E$,J2,1)  THEN  3110 

3090  NEXT  J2 

3100  RETURN 

3110  M%=J2-1 

3120  K=K+1 

3140  C$(K)=MID$(E$,1,M%) 

3150  E$=MID$(E$,J2+1) 

3160  J2=0 

3170  G0T03070 

3180  REM  ROUTINE  TO  SAVE  DATA 

3190  INPUT"INPUT  A  NAME  FOR  FILE  BEING  SAVED  M;F$ 

3195  IFF$=KP$  THEN  GOSUB3350 

3200  0PEN2  , 8 , 2 , "0 :  "+F$+" ,  S  , W" 

3210  PRINT#2,CHR$(34)+F$+CHR$(34) 

3215  E$="00000" 

3220  FOR  I=1T010 

3230  E$=E$+CHR$(126)+P$(I) 

3235  RS$=LEFT$(P$(I),3) 

3240  IF  RS$="END"  THEN  3255 

3250  NEXT  I 

3255  E$=E$+CHR$( 126)+STR$(N)+CHR$( 126) 

3257  PRINT#2 ,CHR$(34)+E$+CHR$(34) 

3260  F0RJ=1T0N 

3270  PRINT#2,CHR$(34)+M$(J)+CHR$(34) 

3280  NEXT  J 

3285  PRINT#2,"E0F" 

3290  CLOSE  2 -.RETURN 

3340  END 

3350  OPEN  15,8,1 5, "SCRATCHO:"+KP$ 

3360  CLOSE  15 

3370  RETURN 

READY. 


Database  programs  are  perhaps  the  most 
useful  personal  computer  programs  because  of  their 
wide  application.  In  what  applications  could  you  use 
a  database?  The  list  in  Table  1-4  names  a  number  of 
the  thousands  of  types  of  information  that  may  be 
stored,  indexed,  organized,  or  cross-referenced  by 
a  database  program.  Many  of  these  applications  are 
discussed  in  more  detail  throughout  the  book. 


Sophisticated  database  programs  are  commer- 
cially available,  but  the  following  database  dem- 
onstration program  should  be  adequate  for  most 
home  uses.  Unlike  most  commercial  programs, 
which  rely  upon  machine  language  commands  for 
added  speed,  this  program  is  written  in  BASIC  for 
easy  modification.  It  is  designed  for  use  with  floppy 
disks. 
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Table  1-4 

Uses  for  Database  Management  System. 

BUSINESS  USES 

EDUCATIONAL  USES 

HOME  &  HOBBY  USES 

Customer  filing 

Workshop  data 

Student  records 

Field  trips 

Personal  records 

Prospect  lists 

Assets  lists 

Grade  records 

Vehicle  records 

Check  lists 

Master  files  for  .  .  . 

Marketing  data 

Teacher  lists 

Tenure  records 

Club  rosters 

Gen.  Ledger 

Insurance  data 

School  lists 

Parking  assignment 

Telephone  directories 

Accts.  Receiv. 

Pricing  schedules 

Program  design 

Violation  records 

Recipes  files 

Accts.  Payable 

Formulas 

Tuition  data 

Meeting  schedules 

Medical  information 

Payroll  Records 

Production  data 

Enrollment  data 

Facility  schedules 

Property  records 

Personal  data 

Processes 

Property/equipment 

Appliance  warranties 

Telephone  logs 

Cross  referencing 

Athletic  schedules 

Insurance  records 

Telephone  lists 

Commission  records 

Player  assignment 

Christmas  lists/gifts 

Hotel/travel  data 

General  filing 

Games  schedules 

Appointments 

Reservations 

Player  statistics 

Articles  indexes 

Property  control 

Mailing  lists 

Tax  records/data 

Library  catalogues 

Test  scores 

Expenses 

Inventory 

Menus 

Book  ownership 

Key  Employee  data 

Diet  selections 

Utility  records 

Advertising  data 

Inventory 

Deposit  files 

Source  files 

Seating  charts 

Due  dates 

Sales  leads 

Cataloguing 

Travel  records 

Mail  lists 

Laboratory  data 

Meal  planning 

Private  records 

Inspection  data 

Mortgage  data 

Corp.  records 

Experimental  data 

Auto  records 

Directories 

Attendance  data 

Crop  yields 

Billing  information 

Course  description 

Source  files 

Delivery  schedules 

Purchase  orders 

Magazine  Article  index 

Routes 

Requisitions 

Estimate  files 

Territories 

Vacation  records 

Investments 

Quotations 

Budgets 

Plus  all  the  Business  & 

Applintments 

Maintenance  data 

Educational  overlaps 

Conventions 

Locker  assignment 
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Chapter  2 


Business  and  Financial  Applications 


Personal  computers  have  greatly  altered  the  busi- 
ness world  by  permitting  rapid  calculation  of 
numerous  "What  if .  .?"  questions  involving  finan- 
cial formulas,  in  addition  to  providing  accounting 
functions.  Likewise,  the  homeowner  will  find  the 
personal  computer  useful  in  analyzing  loans, 
budgets,  and  investments.  Calculations  that  were 
previously  open  to  error  and  time-consuming  can 
now  be  accomplished  with  ease  and  permit  better 
decision  making. 

FINANCES  AND  INVESTMENTS 

A  growing  number  of  investors  are  using  their 
personal  computers  to  help  them  manage  their 
stock  and  bond  portfolios,  analyze  trends  in  the 
financial  markets,  and  investigate  individual  stocks 
and  decide  when  to  buy  or  sell.  A  personal  com- 
puter connected  to  a  database  can  sort  out  enorm- 
ous quantities  of  market  and  company  statistics  for 
an  investor;  and  within  seconds  the  results  may  be 
projected  on  the  screen  as  charts,  tables,  or  graphs, 
enabling    an    investor   to    evaluate    a   buying 


opportunity— or  a  must-sell  situation— quickly  and 
probably  more  accurately  than  if  the  calculations 
were  done  by  hand.  The  personal  computer  can 
sometimes  make  your  life  as  an  investor  more  re- 
warding, and  often  much  easier.  Additionally,  the 
cost  of  investment  programs  may  be  counted  as  a 
business  expense  for  tax  purposes,  as  can  part  or  all 
of  the  cost  of  your  computer. 

STOCKS,  BONDS,  AND  SECURITIES 

The  personal  computer  has  come  to  the  aid  of 
the  individual  investor  in  three  areas:  portfolio 
management,  technical  and  fundamental  analysis; 
and  database  access.  Making  investment  decisions 
or  recommendations  requires  accurate  technical 
analysis  of  large  amounts  of  data  on  a  timely  basis. 
Compiling  information  in  standard  formats  con- 
cerning stock  performance  or  company  finances, 
doing  statistical  computations  to  update  individual 
stock  files,  tracking  moving  averages,  and  main- 
taining complete  records  of  one  or  a  number  of 
portfolios  are  all  tasks  ideally  suited  to  the  personal 
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computer.  Professional  brokers  as  well  as  individu- 
als have  witnessed  the  significant  impact  that  the 
personal  computer  can  have  on  the  analytical  func- 
tions on  which  they  base  their  recommendations. 
With  the  advent  of  the  bull  market  of  the  early  1980s 
and  the  rise  of  the  discount  broker,  professional 
software  packages  have  become  available  to  help 
investors  at  home  make  the  investment  decisions 
that  used  to  be  made  by  their  full-service  broker- 
ages. 

Portfolio  Management 

Portfolio  management  programs  are  really  just 
electronic  notebooks.  They  keep  a  complete  record 
of  the  stocks  you  own  and  show  how  well  you're 
doing  at  the  game.  They  are  especially  useful  at  tax 
time;  their  compilations  of  your  losses,  gains, 
dividends,  brokerage  commissions,  and  more  make 
it  easy  to  account  to  Uncle  Sam  for  your  Wall  Street 
activity. 

The  limitations  on  most  packages  involve  the 
number  of  stock  characteristics  maintained  or  com- 
puted for  each  stock.  Most  packages  will  allow  for  a 
virtually  unlimited  number  of  stock  records  (letting 
you  track  your  own  portfolio  as  well  as  that  of 
several  financial  advisors),  as  long  as  you  are 
willing  to  maintain  them  on  a  number  of  disks. 

The  simplest  individual  portfolio  management 
programs  provide  a  means  of  recording  the  basic 
information  on  stocks  in  your  own  portfolio  or  on 
any  other  stocks  you  wish  to  track  for  comparison. 
When  you  choose  to  update— on  a  daily,  weekly,  or 
other  periodic  basis— the  program  will  automati- 
cally perform  certain  calculations,  such  as  present 
value  of  the  issues,  or  long-  and  short-term  gains 
and  losses  (as  if  you  sold  the  stock  on  that  date).  It 
can  automatically  remind  you  of  a  stock  that  will  go 
long-term  within  30  days  or  maintain  other  infor- 
mation such  as  dates  and  number  of  shares  pur- 
chased, total  number  of  shares  owned,  dividends, 
growth  rate,  and  percentage  appreciation  or  depre- 
ciation. The  following  analysis  factors  may  be  com- 
puted for  the  entire  portfolio:  sum  of  cost  prices, 
sum  of  current  value,  sum  and  percentage  differ- 
ence between  cost  arid  current  price,  percentage 
return  on  a  cost  basis,  and  percentage  return  on  the 


current  value.  A  report  may  be  automatically  pre- 
pared for  attachment  to  IRS  forms,  and  the  portfolio 
information  may  be  printed  in  a  variety  of  formats 
for  ready  reference. 

More  advanced  portfolio  management 
packages  allow  hundreds  of  open  tax  lots  in  a  sys- 
tem that  matches  your  transactions  against  open 
positions  to  let  you  make  investment  decisions  that 
minimize  your  tax  liability.  You  can  track  stocks, 
options,  bonds,  treasuries,  and  mutual  funds;  the 
system  can  accommodate  buy,  sell,  short  sell,  and 
buy-to-cover  transactions.  Return  on  investment 
for  each  stock  and  the  entire  portfolio  may  be  com- 
puted as  well  as  the  total  net  earnings.  Sophisti- 
cated programmers  could  make  use  of  Sharpe's 
method  (or  another  method)  in  determining  the 
proportion  of  funds  that  should  be  allocated  to  each 
security  in  a  portfolio  to  maximize  returns. 

Technical  and  Fundamental  Analysis 

Fundamental  analysis  assumes  that  the  price 
fluctuations  of  stocks  are  based  on  the  basic  finan- 
cial health  of  the  economy  and  the  performance  of 
the  individual  company.  Thus,  fundamental  ana- 
lysts look  at  such  factors  as  earnings,  sales,  assets, 
and  liabilities  and  use  these  to  predict  future  price 
movements. 

Technical  analysts  argue  that  these  factors  af- 
fect stock  prices  only  over  the  long  run.  Short-term 
fluctuations,  they  maintain,  are  governed  by 
psychological  conditions  in  the  market  itself,  not 
external  factors.  Therefore,  they  believe  the  study 
of  the  past  market  behavior  can  determine  the  way 
to  profits  in  the  future.  There  are  many  different 
theories  that  promote  various  indicators  as  the  key 
to  future  price  movement.  Some  of  the  major  indi- 
cators are  the  relationship  between  price  and  vol- 
ume, market  averages,  and  new  highs  versus  lows. 

Both  fundamental  and  technical  analysis  call 
for  extensive  number  crunching  and  are  well  suited 
for  being  handled  by  computers,  although  funda- 
mental analysis  exceeds  the  capacity  of  most  per- 
sonal computers.  In  fact,  almost  all  of  the  analysis 
programs  available  on  the  personal  computer  mar- 
ket do  technical  analysis.  In  technical  analysis, 
computers  can  be  especially  useful  in  charting  vari- 
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ous  relationships  between  individual  stock  prices 
and  trading  volumes.  A  personal  computer  can  turn 
a  pile  of  statistics  that  might  take  several  hours  to 
plot  by  hand  into  a  chart  within  seconds.  In  this 
chapter  I  will  discuss  some  popular  means  of  tech- 
nical and  fundamental  analysis.  Interested  readers 
are  referred  to  popular  manuals  on  investment 
analysis,  statistics,  and  these  publications  on 
computer-assisted  stock  analysis  for  further  infor- 
mation: 


With  a  microcomputer  at  your  disposal,  you 
can  now  develop  and  test  a  market  theory  without 
countless,  error-prone  manual  calculations!  A 
"paper  portfolio,"  or  collection  of  stocks  to  track 
that  are  not  actually  owned,  was  once  too  time  and 
effort  consuming  for  the  individual  investor  to  ex- 
periment with.  When  you  experiment  each  "buy  and 
sell"  decision  can  be  based  on  actual  market  per- 
formance and  serve  as  a  "lesson  learned"  in  de- 
veloping your  own  trading  strategies. 


*L.R.  Schmeltz,  Playing  the  Stock  and  Bond  Mar- 
kets With  Your  Personal  Computer,  TAB  BOOKS 
Inc.,  Blue  Ridge  Summit,  PA  17214. 
*Leslie  E.  Sparks,  Investment  Analysis  With  Your 
Microcomputer,  TAB  BOOKS  Inc.,  Blue  Ridge 
Summit,  PA  17214. 

*The  Microcomputer  Investor,  The  Microcomputer 
Investors  Association,  902  Anderson  Dr.,  Fred- 
ricksburg,  VA  22401. 

*  Computerized  Investing  on  the  Stock  Market  from 
Investment  Software  Concepts,  P.O.  Box  27, 
Bronxville,  NY  10708. 

*Woodwell,  Donald,  Automating  Your  Financial 
Portfolio:  An  Investors  Guide  to  Personal  Comput- 
ers, Dow-Jones-Irwin,  1818  Ridge  Rd., Home- 
wood,  IL  60430. 


Moving  Averages 

Moving  averages  provide  a  measure  of  the 
movement  of  a  stock  relative  to  itself  (in  price, 
dividend,  or  volume),  a  composite  summary  of  a 
key  factor  (for  example,  the  average  price  of  a  stock 
group),  and  a  ratio  of  two  or  more  key  factors  (for 
example,  P/E  ratios).  The  moving  average  is  often 
most  useful  in  predicting  the  buy  versus  sell  posi- 
tion of  a  stock  in  regard  to  its  past  trend.  If  the 
current  stock  price  drops  below  the  moving  aver- 
age, a  sell  position  would  be  taken  and  vice-versa 
for  a  buy  position.  The  program  in  Listing  2-1  com- 
putes the  moving  average  for  a  stock  or  other  se- 
curity given  a  set  of  successive  daily  prices  and  the 
length  of  the  span  over  which  the  average  is  to  be 
computed. 


Listing  2-1:  The  Moving  Average  Calculator  Program 

5  PRINT  CHR4K147:>TRBt.4S>.: 

10  PR I NT "MOVING  RVERRGE  CALCULATOR" 

20  PRINT  "ENTER  PRICE  VALUES  SUCCES 

;sivelv,  " 

25  PRINT  "ENTER  "'SLW  TO  END." 

30  nin  FK 200), EC 200) :tf=0 

40  X=X+ 1  :  PR  I  NT "  #  "  :  X ;  =  1 NFUT  A  (.  X  > 

50  IF  fi<.r,')-333?   THEN  X-X-l  ■  GOTO  60 

55  IF  AOOO\?SOT  THEN  GOTO  40 

60  INPUT "ENTER  SPAN  LENGTH" ;  C 

70  E=a+CV2:D=1  :B=C 

80  F=@:F0R  I-D  TO  G 

90  Fs=fki>+f:ne>:t 

1 00  G=G+ 1  ;  B  <.  E )  =  I  NT  ( .  5+F/C )  ■  E^:E+ 1  •  D- 

:D+1 

110  IF  G< 1+X  THEN  80 

140  PRINT  "   MEEK  tt   NEEKLV  PRICE  AVE.  MOVING  AVE" 

160  FORI^ITOX 

165  pr  I  NT  I. ; "         m;r(d;  " 

";e(D 

170  NEXT  I 

180  PRINT  "TYPE  ' 1 '  TO  CHOOSE  HEW  > 

::PflN" 

185  I NFUT  ZZ 
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190 

IF  ZZ 

0 1 

THEN 

END 

200 

FDR  I 

=  1 

TO  '/,' 

BCI^ 

::PI 

ne: 

-;t 

i 

210 

GOTO 

50 

Price/Volume  Trace 

In  this  analysis  technique,  the  daily  stock  price 
and  volume  data  are  considered  as  (x,y)  data  points. 
Probability  rules  may  be  developed  as  clues  to  the 
immediate  future  performance  of  the  stock  price  as 
it  relates  to  volume. 

Rate  of  Change 

The  rate  of  change  is  a  measure  that  involves 
price  fluctuations  of  a  stock  to  itself  and  may  be 
used  to  compare  stocks  in  terms  of  price,  sales,  or 
earnings.  On  this  basis  you  can  find  the  stock  with 
the  best  potential  to  increase  in  price  in  the  im- 
mediate future,  barring  any  information  or  indica- 
tion that  the  current  stock  trend  will  change  or 
reverse.  It  is  computed  as  follows: 


%  Rate  of  Change  =  ■ 


Knding-Starting  Price 

Starting  Price 
No.  of  trading  days 


100 


This  value  may  be  determined  for  daily,  weekly, 
monthly,  yearly  or  other  periods  by  altering  the 
denominator. 

Change  Distribution 

This  analysis  technique  compares  the  dis- 
tributional change  of  individual  stocks  within  a 
group  to  the  average  change  of  the  group  for  a  given 
time  period.  This  provides  a  probabilistic  measure 
of  the  rate  of  change  in  either  relative  or  absolute 
terms. 

The  stock  distribution,  like  a  normal  distribu- 
tion, is  described  by  the  factors  of  price  average  and 
standard  deviation;  the  standard  deviation  usually 
increases  as  the  length  of  time  considered  in- 
creases and  as  the  market  rate  of  change  increases. 
By  knowing  the  typical  stock  price  distributions  for 
different  market  index  rates  of  change,  the  proba- 
bility of  success  in  short-term  trading  is  increased; 
the  investor  is  equipped  with  the  probability  dis- 
tribution of  the  price  change. 


Price  Indexes 

Price  indices  are  indicators  of  the  central  drift 
of  a  set  of  stocks  or  the  market  as  a  whole.  These 
include  the  Dow  Jones,  New  York  Stock  Exhange, 
American  Stock  Exchange,  Standard  &  Poor  index, 
and  other  indices.  They  can  be  best  applied  to 
determine  a  consensus  of  individual  stock  trends 
within  a  given  stock  category.  An  indicator  that  is 
well  suited  for  computation  on  your  personal  com- 
puter would  use  the  formula 

all  stocks 
INDEX    =  1- 


y 


where  x    =  stock  price 

y    =  number  of  shares  traded  at  x 

J  n  n 

y  =  total  shares  traded 

The  moving  average  and  indexing  concepts 
may  be  used  as  powerful  decision-making  tools  in 
determining  whether  the  investor  should  be  an- 
ticipating a  trading  decision,  trading,  or  inves- 
tigating other  investments. 

Ratio  Relationships 

The  use  of  ratios  is  popular  in  business  and 
finance  because  they  afford  a  means  of  comparison 
of  two  or  more  factors  that  influence  investment 
decisions.  A  well-known  example  is  the  price/ 
earnings  (P/E)  ratio  used  in  measuring  the  poten- 
tial of  a  stock.  Others  include  the  ratio  of  sales 
growth,  the  ratio  of  consecutive  period  earnings, 
the  yearly  high  stock  price  versus  the  low  price,  and 
the  relative  strength  of  a  stock  versus  the  market 
index.  The  personal  computer  may  be  used  in  au- 
tomatically calculating  many  of  the  popular  ratios 
and  in  forecasting  changes  of  ratios  through  the  use 
of  statistical  regression.  For  instance,  the  future 
price  of  a  stock  may  be  computed  given  current 
value  per  share,  projected  earnings,  and  projected 
percent  change  in  the  P/E  ratio  using  this  simple 
formula: 
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V    = 

p 


V  E2 

c        p 


where  V  =  current  value  per  share 

E  =  projected  earnings 

C  =  projected  percent  change  of  P/E  ratio 

E  =  current  earnings 

V  =  projected  value  per  share 

Note  that  all  projected  values  must  be  for  the  same 
length  of  time. 

Trend  Line  Analysis 

Trend-line  analysis  is  a  major  statistical  com- 
putation in  financial  analysis  and  is  accomplished  by 
using  the  method  of  linear  least  squares  fitting  of 
data.  Suppose  you  obtained  a  set  of  data  listing  the 
value  of  one  stock  over  a  period  of  time.  If  these 
values  were  plotted  versus  the  Dow  Jones  Index  the 
result  could  appear  as  shown  in  Fig.  2-1. 

A  trend  line  analysis  would  determine  the  equa- 
tion of  the  line  that  best  fits  or  describes  the  data, 
telling  you  how  one  variable  is  related  to  another. 
This  equation,  in  the  form  of  y  =a  4-  bx,  provides  a 
means  to  estimate  the  value  of  a  variable  (y)  given 
the  value  of  the  other  variable  (x).  The  values  of  a 
and  b  are  determined  using  these  regression  equa- 
tions: 


b  = 


nSXY  -USY 
nH2-  (XX)2 


Fig.  2-1 .  A  trend  line  graph. 


a  =  —  (SY-bSX) 
n 

where  n  =  no.  of  (x,y)  pairs 
X  =  individual  x  values 
Y  =  individual  y  values 
b  =  slope  of  line 
a  =  y  axis  intercept 

As  described  in  the  chapter  concerning  math- 
ematical and  statistical  applications,  the  standard 
error  may  be  calculated  for  a  regression  line  to 
determine  how  well  it  describes  the  data. 

The  technique  of  multiple  linear  regression  is 
used  by  investors  in  determining  the  influence  of 
more  than  one  variable  (x  —  x  )  on  another  variable 
(y).  The  total  variation  in  y  may  often  be  better 
explained  through  the  use  of  multiple  x  variables  (y 
=  a  +  b:  Xj  +  b2x2  -f  .  .  .  bnxn),  allowing  more 
precise  prediction  than  is  possible  through  the  sim- 
ple linear  regression  discussed  above.  For  in- 
stance, one  investor  using  microcomputer 
techniques  has  developed  a  four-variable  regres- 
sion equation  describing  the  stock  market  average: 

log  V=a+b  log  E  +  c  log  G  —  d  log  R 

where  V  =  Value  of  the  average 

E  =  Earnings  of  the  average 

G  =  Growth  rate  of  the  average's  earning 

R  =  Yield  of  quality  long-term  bonds 

In  this  example,  the  variables  (E,  G,  R)  are  re- 
gressed on  V.  The  constants  a,  b,  c,  d  are  deter- 
mined and  used  in  predicting  future  values  of  V 
based  on  past  relationships  to  E,  G,  and  R.  Multiple 
linear  regression  is  also  computed  using  the  least 
squares  method.  For  more  information  on  the  least 
squares  method,  refer  to  a  textbook  of  statistics. 
Investors  using  multiple  linear  regression 
techniques  have  developed  modeling  equations  that 
reflect  the  influence  of  a  wide  variety  of  factors, 
with  high  correlations,  on  stock  and  security  prices, 
earnings,  and  P/E  ratios.  These  include 

•  The  current  month's   interest  yield  of  the 
Moody's  AAA  Bond  Index. 
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•  The  ratio  of  pretax  corporate  profits  for  the  pre- 
ceding twelve  months  to  pretax  corporate  profits 
adjusted  for  inventory  profits  for  the  same 
period. 

•  The  ratio  of  current  dollar  gross  national  product 
for  the  preceding  twelve  months  to  current  dollar 
gross  national  product  for  twelve  months  ending 
one  quarter  into  the  future. 

•  The  average  yield  on  taxable  U.S.  Government 
3-5  year  issues  for  the  preceding  six  months. 

•  The  average  year-to-year  percentage  gain  of  the 
Consumer  Price  Index. 

•  The  equity  of  the  S&P  400  one  year  previous 
divided  by  the  earnings  of  the  S&P  400  for  the 
latest  twelve  months. 

•  The  relative  consistency  of  divided  growth  for 
ten  years,  in  terms  of  the  ratio  of  the  correlation 
of  the  stock's  dividend  growth  with  time  to  that  of 
the  S&P  Industrial  Stock  Average's  dividend 
growth. 

•  The  relative  consistency  of  earnings  growth  for 
ten  years,  computed  as  above. 

•  The  relative  profit  margin  for  the  latest  report 
twelve  months. 

•  The  relative  rate  of  earnings  growth  for  the  pre- 
vious ten  years  on  a  per-share  basis. 

•  The  relative  size  measured  by  net  income  for  the 
latest  twelve  months. 

•  The  relative  return  on  equity,  as  earnings  less 
dividends  divided  by  equity  at  the  beginning  of 
the  twelve-month  period. 

•  The  relative  five-year  earnings-per-share  least- 
squares  growth  rate. 

•  The  relative  prospective  return  on  equity  in  the 
year  for  which  earnings  are  being  estimated. 

•  The  relative  prospective  earnings  growth  for  the 
next  quarter. 

•  The  relative  reinvestment  rate  in  the  latest  year. 

•  The  relative  prospective  earnings  growth  for  the 
next  two  quarters. 

•  The  relative  dividend  payout  ratio  for  the  latest 
twelve  months. 

•  The  relative  earnings  growth  for  the  latest 
twelve  months. 

Of  course,  many  other  variables  could  be  used 


at  the  investors  discretion,  including  DJIA,  specific 
industrial  indicators,  GNP,  employment  statistics, 
disposable  personal  income  statistics,  indices  of 
industrial  production,  bank  deposits,  money  sup- 
ply, interest  rates,  inventory  levels,  accounts 
receivable/payable,  and  railroad  freight  usage. 
With  a  large  selection  of  apparently  useful  variables 
to  employ,  you  can  now  build  a  multiple  regression 
equation  on  your  personal  computer,  seeking  both 
the  highest  possible  correlation  and  confidence 
level  and  the  least  interaction  among  variables  cho- 
sen. The  variables  may  be  regressed  against  indi- 
vidual stock  performance,  group  stock  perfor- 
mance, and  market  indices  or  other  securities. 
Those  variables  that  are  generally  most  useful  in- 
clude measures  of  preceding  and  following  interest 
rates,  inflation,  economic  activity  (for  example 
GNP),  industry  health,  and  rates  of  change. 

Database  Searching 

With  the  advent  of  databases  available  to  the 
individual  investor  at  low  rates,  a  personal  com- 
puter can  be  instructed  to  search  for  stocks  fulfilling 
any  combination  of  investment  criteria.  If,  for 
example,  you  are  a  conservative  investor,  you 
could  have  a  program  hunt  for  companies  whose 
shares  have  a  P/E  ratio  of  5  or  less  and  annual  yields 
of  10%  or  more— both  of  which  can  signify  under- 
valued companies. 

Financial  Ratio  Analysis 

Financial  ratio  analysis  is  an  ideal,  simple 
method  of  determining  how  well  a  particular  com- 
pany has  performed  in  relation  to  other  companies 
in  its  industry  or  in  relation  to  its  own  past  perfor- 
mance and  of  predicting  future  performance.  De- 
scribed below  are  several  popular  financial  ratios 
that  can  be  determined  using  figures  from  corporate 
annual  reports  and  a  simple  BASIC  program  that 
does  the  necessary  divisions  and  tabulations  or 
comparisons  with  figures  concerning  other  corpo- 
rations. Over  the  years,  security  analysts,  brokers, 
and  investors  have  found  that  financial  statements 
become  more  meaningful  when  ratios  between 
various  values  on  the  income  and  balance  sheets  are 
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computed.  These  ratios  may  be  divided  into  four 
categories,  as  shown  below: 

Liquidity  Ratios 

Current  ratio 

Quick  ratio 

Inventory  to  working  capital 

Leverage  Ratios 

Debt  to  total  assets 
Times  interest  earned 
Current  liabilities  to  net  worth 
Fixed  assets  to  net  worth 
Debt  to  equity 

Activity  Ratios 

Cash  velocity 
Inventory  turnover 
Fixed  assets  turnover 
Average  collection  period 
Total  assets  turnover 

Profitability  Ratios 

Net  operating  margin 
Net  income  margin 
Return  on  assets 
Return  on  net  worth 

Liquidity  ratios  are  designed  to  measure  a 
firm's  ability  to  meet  its  obligations  as  they  mature 
and  relate  to  the  amount  of  cash  and  assets  con- 
vertible into  cash  in  the  near  future. 

Leverage  ratios  measures  the  financing  pro- 
vided by  owners  as  compared  with  the  financing 
provided  by  the  firm's  creditors.  Creditors  look  at 
the  owner-supplied  funds  to  provide  them  with  a 
margin  of  safety,  but  by  raising  funds  through  debt, 
the  owners  are  able  to  maintain  control  of  the  firm 
with  a  small  investment.  The  return  of  the  owners 
is  magnified  when  the  firm  earns  more  on  the  bor- 
rowed funds  than  it  pays  in  interest. 

Activity  ratios  determine  how  effectively 
the  firm  utilizes  the  resources  available. 

Profitability  ratios  demonstrate  the  result 
of  the  policies  and  decisions  of  the  firm's  manage- 
ment. Both  operating  margins  and  new  profits  are 


calculated  to  distinguish  between  the  results  of 
operating  policies  and  the  results  of  financial 
policies. 

The  input  data  needed  for  computation  of  these 
ratios  is  usually  found  in  the  financial  statements  of 
a  company  and  includes 

Cash:  all  cash  on  hand  plus  cash  in  the  com- 
pany's bank  accounts.  Any  cash  in  certificates  of 
deposit  or  other  short-term  deposits  should  be  in- 
cluded. 

Marketable  securities:  investments  in  obliga- 
tions that  are  readily  marketable  and  can  be  con- 
verted into  cash  on  short  notice. 

Receivables  (beginning):  receivables  should  be 
net  of  any  reserve  for  doubtful  accounts  and  be  fully 
collectible  within  one  year.  Beginning  receivables 
are  those  that  were  due  to  the  company  at  the 
beginning  of  the  operating  year. 

Receivables  (ending):  those  receivables  due  to 
the  company  at  the  end  of  the  operating  year. 

Inventory  (beginning):  inventory  that  is  on  hand 
at  the  beginning  of  the  operating  year. 

Inventory  (ending):  inventory  that  is  on  hand  at 
the  end  of  the  operating  year. 

Current  assets:  the  total  of  cash,  marketable 
securities,  receivables,  inventories,  and  other  as- 
sets of  the  company  that  are  expected  to  be  con- 
verted into  cash  in  the  normal  course  of  business 
within  the  current  operating  year. 

Fixed  assets:  assets  such  as  land,  buildings, 
leasehold  improvements,  equipment,  fixtures,  fur- 
nishings, vehicles  and  other  assets  with  lives 
longer  than  one  year  that  are  used  in  the  operations 
of  the  company. 

Total  assets:  the  total  of  all  assets  of  the  company, 
including  current  assets,  fixed  assets,  and  other 
assets. 
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Current  liabilities:  debts  of  the  company  that 
must  be  paid  within  one  year,  usually  consisting  of 
trade  accounts  payable,  payroll  taxes  withheld,  ac- 
crued expenses,  and  that  portion  of  long-term  debt 
coming  due  within  one  year. 

Total  liabilities:  the  total  of  all  the  debt  of  the 
company,  including  current  as  well  as  noncurrent 
liabilities. 

Net  worth:  (also  called  owner's  equity  or 
stockholders'  equity)  the  difference  between  total 
assets  and  total  liabilities. 

Sales:  the  total  revenues  earned  by  the  com- 
pany during  the  year,  net  of  all  sales  discounts  and 
returns. 

Gross  operating  profit:  found  by  subtracting 
cost  of  sales  from  sales.  It  represents  the  difference 
between  the  sales  price  of  all  items  sold  and  the 
cost  of  the  items  sold. 

Interest  charges:  the  total  amount  of  interest 
that  has  been  paid  by  the  company  on  its  indebted- 
ness. 

Profit  before  income  taxes:  the  net  income  of  the 
company  for  the  year  after  all  expenses  have  been 
considered.  It  is  commonly  referred  to  as  the  "bot- 
tom line." 

Current  ratio.  This  ratio  is  computed  by  di- 
viding current  liabilities  into  current  assets.  This 
ratio  is  the  generally  accepted  measure  of  the  abil- 
ity to  satisfy  short-term  obligations  and  indicates 
the  extent  to  which  the  claims  of  short-term 
creditors  can  be  covered  by  assets  that  can  be 
expected  to  be  converted  to  cash  in  a  period  corre- 
sponding to  the  time  obligations  become  due. 

Quick  ratio.  This  ratio  is  computed  by  de- 
ducting inventories  from  current  assets  and  divid- 
ing the  remainder  by  current  liabilities.  This  is  a 
measure  of  the  ability  to  pay  short-term  obligations 
without  relying  on  the  sale  of  inventories  and  is  a 
better  guide  to  short-term  liquidity  than  the  current 
ratio. 


Inventory  to  working  capital.  This  ratio 
demonstrates  the  proportion  of  working  capital  tied 
up  in  inventory  and  is  used  to  find  the  possible  loss 
to  the  company  resulting  from  a  decline  in  inventory 
values;  a  low  ratio  is  desirable. 

Debt  to  total  assets.  This  ratio  measures 
the  company's  obligations  to  creditors  in  relation  to 
all  the  funds  provided  to  the  company;  the  lower  the 
ratio,  the  greater  the  protection  from  losses  being 
incurred  by  creditors  in  the  event  of  liquidation. 
Generally,  the  maximum  debt  ratio  should  be  50%. 

Times  interest  earned.  This  ratio  is  deter- 
mined by  dividing  earnings  before  interest  and 
taxes  by  interest  expense.  This  measures  the  ex- 
tent to  which  earnings  could  fall  before  the  company 
is  unable  to  pay  annual  interest  costs;  the  lower  the 
ratio,  the  more  difficulty  the  company  will  have  in 
raising  additional  funds.  A  manufacturing  company 
should  cover  interest  more  than  four  times  and 
public  utilities  should  cover  interest  about  three 
times. 

Current  liabilities  to  net  worth.  This  ratio 
determines  the  amount  of  funds  supplied  by  owners 
compared  to  funds  provided  by  current  debt;  if  the 
owners  have  not  put  enough  funds  into  the  com- 
pany, long-term  creditors  will  be  less  willing  to 
provide  funds,  and  the  company  will  have  to  utilize 
short-term  financing  to  a  great  extent,  resulting  in 
greater  time  before  current  bills  are  paid.  Lower 
ratios  are  favorable. 

Fixed  assets  to  net  worth.  This  ratio  indi- 
cates the  extent  to  which  owner's  funds  are  in- 
vested in  assets  with  little  turnover.  Higher  ratios 
will  result  for  industries  that  are  capital  intensive 
versus  companies  that  are  labor  intensive. 

Debt  to  equity.  This  ratio  demonstrates  the 
relation  between  total  debt  of  the  firm  and  funds 
provided  by  the  owners;  the  lower  the  ratio,  the 
greater  the  protection  against  creditor's  losses  in 
the  event  of  liquidation.  Owners  may  desire  a  high 
ratio  because  this  will  magnify  earnings  and  prevent 
possible  dilution  of  control  of  the  company  if  addi- 
tional equity  must  be  raised. 

Cash  velocity  ratio.  This  ratio  is  computed 
by  dividing  cash  and  cash  equivalents  into  sales. 
This  ratio  indicates  the  number  of  times  cash  has 
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turned  over  within  the  year;  a  high  cash  velocity 
indicates  cash  is  being  used  effectively. 

Inventory  turnover.  This  ratio  is  computed 
by  dividing  the  cost  of  sales  by  inventory.  This  ratio 
indicates  the  liquidity  of  inventory;  a  high  inventory 
turnover  shows  that  inventories  are  being  held  to  a 
minimum,  and  a  low  ratio  may  indicate  obsolete  or 
slow-moving  stock. 

Fixed  assets  turnover.  This  ratio  is  com- 
puted by  dividing  sales  by  fixed  assets.  This  mea- 
sures the  utilization  of  fixed  assets;  a  low  ratio  may 
indicate  the  plant  isn't  being  utilized  as  effectively 
as  possible,  unless  the  company  is  labor-intensive. 

Average  collection  period.  This  ratio  is 
computed  by  dividing  accounts  receivable  by  aver- 
age daily  sales.  This  represents  the  average  time 
period  after  making  a  sale  before  cash  is  received, 
indicating  the  effectiveness  of  credit  and  collection 
policies;  these  may  need  to  be  strengthened  if  this 
ratio  is  on  the  increase. 

Total  assets  turnover.  This  ratio  is  com- 
puted by  dividing  sales  by  total  assets.  This  shows 
the  effectiveness  of  the  firm  in  utilizing  resources 
to  generate  sales;  a  high  ratio  may  indicate  over- 
utilization  of  assets,  and  a  low  ratio  may  indicate  an 
excessive  investment  or  idle  assets. 

Gross  operating  margins.  This  ratio  is 
computed  by  dividing  gross  operating  profit  by 
sales.  This  ratio  determines  how  far  unit  selling 
prices  may  decline  without  resulting  in  a  loss  from 
the  sale  of  units  and  how  products  are  priced  in 
relation  to  their  cost. 

Net  operating  margin.  This  ratio  is  com- 
puted by  dividing  profit  before  taxes  by  sales.  This 
shows  the  amount  each  sales  dollar  provides  to  the 
continuing  operation  of  the  firm  before  considera- 
tion of  income  taxes. 

Net  income  margins.  This  ratio  is  deter- 
mined by  dividing  net  profits  after  taxes  by  sales.  A 
lower  ratio  indicates  selling  prices  are  relatively 
low  and  total  costs  are  relatively  high;  thus,  a  small 
percentage  drop  in  sales  may  result  in  losses.  This 
ratio  indicates  the  profitability  after  taking  into  ac- 
count all  income  taxes  and  expenses  and  measures 
the  return  on  sales. 

Return  on  assets  ratio.  This  ratio  is  com- 


puted by  dividing  net  profits  after  taxes  by  total 
assets.  This  measures  rate  of  return  on  total  re- 
sources. 

Return  on  net  worth  ratio.  This  ratio  is 
computed  by  dividing  net  profit  after  taxes  by  net 
worth.  This  ratio  is  indicative  of  the  company's 
earning  on  the  investment  of  shareholders.  A  high 
or  increasing  value  is  favorable,  although  a  very 
high  value  may  indicate  intense  competition.  Addi- 
tionally, temporary  inventory  profits  may  be  the 
result  of  increasing  commodity  prices.  A  high  value 
could  also  be  caused  by  general  prosperity  or  a 
declining  position. 

Combined  coverage.  Combined  coverage  is 
computed  by  dividing  annual  interest  and  debt  costs 
plus  preferred  dividends  into  the  adjusted  operating 
profit  after  taxes  and  before  interest.  A  combined 
coverage  of  four  is  considered  acceptable  for  an 
industrial  company;  a  coverage  of  three  times  the 
combined  requirements  would  make  a  utility  stock 
high-grade. 

Dividend  payout.  The  dividend  payout  is  the 
percentage  of  earnings  on  common  stock  that  are 
paid  out  as  dividends.  Industrial  companies  average 
about  55%,  utilities  70%,  and  growth  companies 
less  than  55%. 

Book  value  per  share.  The  book  value  per 
share  is  determined  by  adding  the  stated  or  par 
value  of  the  common  stock  to  the  additional  paid-in 
capital  and  retained  earnings  accounts  and  dividing 
by  the  number  of  common  shares.  The  book  value 
would  be  lower  for  companies  in  which  preferred 
stock  is  entitled  to  share  in  additional  paid-in  capi- 
tal. The  book  value  is  not  as  important  an  indicator 
as  earnings  and  prospects  for  industrial  companies. 
However,  the  book  value  of  stock  for  financial  in- 
stitutions and  utilities  is  important  in  analysis. 


Additional  Investment  Applications 

On  the  following  pages  you  will  find  ten  more 
ways  in  which  you  can  use  your  microcomputer  as  a 
tool  for  making  profitable  financial  decisions. 

Company  growth  rates.  The  program  in 
Listing  2-2  may  be  used  to  calculate  company 
growth  rates  using  historical  financial  data: 
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Listing  2-2:  The  Growth  Rate  Calculator  Program 
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The  intrinsic  value  of  a  stock.  This  value  is 
calculated  with  this  formula: 


I    = 


TOAMT 

CS 


Where       I  =  intrinsic  value 

TC  =  total  corporation  capital 
AMT  =  price  per  share 

CS  =  amount  in  dollars  of  capital  stock 

A  stock  valuation  program.  A  program  of 
this  type  could  find  current  and  future  values  of  a 
stock  and  the  rate  of  return  before  and  after  taxes. 
Commissions  would  be  considered  in  all  calcula- 
tions. 

Brokerage  commissions.  Commissions 
could  be  calculated  on  standard  and  odd  lots,  as  well 
as  for  stocks  selling  below  one  dollar  per  share. 

Earnings  per  share  estimation.  A  histori- 
cal balance  sheet  and  income  data  could  be  used  to 
estimate  future  earnings  for  a  given  stock;  future 
estimations  may  be  made  with  trend-line  analysis. 

An  options  valuation  program.  Using  the 


Black-Scholes  or  another  economic  model,  an  op- 
tions valuation  program  could  determine  the  op- 
timum hedge  ratio  and  spread  of  any  options.  When 
selling  partially  covered  calls  or  when  selling  puts 
and  shortening  stock,  an  options  writing  program 
could  be  used  to  find  the  maximum  profit  and  upper 
and  lower  break-even  points. 

A  program  of  this  type  is  presented  in  Listing 
2-3.  The  purpose  of  this  program  is  to  assist  the 
investor  in  planning  the  most  profitable  stock- 
option  buy  and  sell  strategy.  The  strategy  used  by 
the  program  involves  the  selling  of  options  against 
stock  bought;  this  is  usually  considered  the  least 
risky  strategy  and  it  is  often  the  most  profitable 
one.  For  example,  you  could  buy  100  shares  of 
stock  to  use  as  collateral  for  each  call  option  sold.  A 
call  option,  which  is  sold  at  a  premium,  allows  the 
purchaser  the  right  to  buy  the  stock  at  a  certain 
price  (called  the  strike  point),  no  matter  what  the 
true  stock  price  becomes.  However,  the  option  is 
valid  only  for  a  certain  length  of  time,  known  as  the 
life  of  the  option.  This  computer  program  will  re- 
quest information  pertaining  to  the  stock  and  will 
calculate  the  value  of  the  stock  and  return  on  in- 
vestment (ROI)  over  a  range  of  40%  to  160%  of  the 
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current  value.  Using  this  data,  the  investor  should  and  then  prints  an  itemized  listing  of  all  costs, 

be  able  to  decide  the  probability  that  a  certain  buy  brokerage  fees,  proceeds  and  returns.  To  make  the 

and  sell  strategy  will  be  profitable.   In  the  final  best  use  of  this  program,  it  is  suggested  that  you 

analysis,  the  program  uses  a  set  of  financial  for-  study  references  concerning  stock-option  strat- 

mulas  to  recommend  a  specific  buy-sell  strategy  egies. 


Listing  2-3:  The  Stock  Option  Analysis  Program 

10  PRINTCHR$(147)TAB(45)"ST0CK  OPTION  ANALYSIS  PROGRAM" 

20  PRINT 

30  DIM  D(12),A$(20),B(10),F(12),K$(12) 

40  FOR  D4=l  TO  12 

50  READ  D(D4):F(D4)=D4:READ  K$(D4) 

60  NEXT  D4 

70  PRINT"ENTER  THE  NUMERICAL  MONTH,  DAY,  YEAR  ": INPUT  M1,D9,Y1 

80  PRINT  "IS  THE  STOCK  TO  BE  BOUGHT  ON  MARGIN" : INPUT  "( 1=YES , 2=N0)" ;M 

90  INPUT  "ENTER  THE  %  MARGIN  RATE  ";M2 

100  IF  M=l  THEN  D5=.5 

105  IF  MOl  THEN  D5=l 

110  PRINT  "ENTER  THE  NAME  OF  THE  STOCK  OR  ID": INPUT  D6$ 

115  PRINT"ENTER  THE  DIVIDEND  IN  $'S  PER  SHARE  ":INPUT"PER  QUARTER  ";D7 

120  PRINT"ENTER  THE  NUMBER  OF  SHARES  TO  BE  PUR-" 

125  INPUT"CHASED  (MULTIPLE  OF  100  SHARES" ;D8 

130  INPUT"ENTER  PRICE  PER  SHARE" ;P9 

140  INPUT"SELECT  MARKET  1)NYSE,  2)0TC";E 

150  PRINT"ENTER  THE  EXPIRATION  MONTH  (E.G.  1=JAN," 

155  INPUT" 2=FEB...)";E2 

160  INPUT"ENTER  THE  STRIKE  PRICE  ";E3 

170  PRINT"ENTER  THE  COST  PER  OPTION  (MULTIPLY" 

175  INPUT"PRICE  BY  100)";E4 

180  E5=D8/100 

190  PRINT"ENTER  THE  JANUARY,  APRIL,  JULY  OCTOBER" 

194  INPUT"PREMIUMS";B(1),B(4),B(7),B(10) 

196  C4=100:C3=100 

200  FOR  C8=l  TO  10  STEP  3 

210  IF  B(C8)=0  THEN  590 

220  C9=B(C8) 

230  A4=C8*30.4225 

240  A8=A4+A7-((M1-1)*30.4225)-D9 

250  C=P9*C3 

260  FOR  A9=l  TO  2 

270  C4=A9*C4 

280  D=C4*C9 

290  B4=D*.034+.017*C 

300  B5=B4+C-D 

310  B6=B5*.085*A8/365 

320  D1=B6+B5 

330  PRINT"MONTH  OF  CALL  ";C8 

340  PRINT"INITIAL  INVESTMENT  ";B5 

350  PRINT"TOTAL  INVESTMENT  ";D1 

360  PRINT"EFFECTIVE  WRITING  RATIO  ";A9 

370  PRINT 

380  PRINT"STOCK  PRICE  RETURN     ROI    ROI/YR" 

390  FOR  D2=-4  TO  6 

400  A1=(1-(.1*D2))*C 

410  IF  Al/C3>(.25+E3)  THEN  460 
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420  B9=0 

430  B7=A1-D1 

440  GOTO  480 

450  D1=(1-A9)*A1+D1 

460  B7=C3*E3-D1-100*(A9-1)*E3 

470  B9^((A1/C3+1)-(1.068*C9))*100)/(1.068*C9) 

480  B8=B7/D1*100 

490  C2=A1/C3 

500  D3=B8/(A8/365) 

510  PRINT  C2;n   "; :MN=B7:G0SUB  4000: MN=B8: GOSUB  4000 :MN=D3: GOSUB  4000:PRINT 

520  NEXT  D2 

530  NEXT  A9 

535  INPUT"PRESS  RETURN  TO  CONTINUE" ;A$ 

590  NEXT  C8 

600  IF  A8>180  THEN  PRINT  "LONG  TERM" 

610  PRINT 

620  E6=INT(E5*E3*100) 

630  E7=INT(E4*E5) 

640  E8=Y1*36.5 

650  E9=D9+D(M1)+E8 

660  F=E8+20+D(E2) 

670  F1=F-E9:IF  FKO  THEN  Fl=Fl+365 

680  F2=INT((Fl/90)+.5) 

685  F3=INT(F2*D7*D8) 

690  F4-F3+E7+E6 

700  F5=INT(P9*D8) 

710  F6=INT(D5*F5) 

720  F7=F5-F6:F8=E:F9=F5:G=D8/100 

770  GOSUB  1150 

780  G1=G2:F9=E6:G=D8/100:GOSUB  1150 

820  G3=G2:F9=E7:G=E5:F8=3 

860  GOSUB  1150 

870  G4=G2 

880  G5=F7-E7-F3+G3+G4+G1 

900  IF  D5=l  THEN  G6=0 

905  IF  D5<>1  THEN  G6=INT( ( (M2/100)*G5)*Fl/365) 

910  G7=G6+G3+F7+G4+G1+F6 

920  G8=F4-G7 

930  G9=F6-F3-E7+G6+G3+G1+G4 

940  H=INT((G8*1000)/G9)/10 

950  H2=INT(((G7-F3+E7)-100)/D8)/100 

960  H1=INT(3650^-H/F1)/10 

970  INPUT"PRESS  ENTER  TO  CONTINUE" ;A$:PRINT 

980  PRINT"COVERED  WRITE: " ;D6$ ; "  DATE(MM  DD  YY) : " ;M1 ; D9; Yl 

990  PRINT"HEDGE  STRATEGY:" 

1000  PRINT"BUY";D8;"  SHARES.  (PRICE=$" ;P9; ")" 

1010  PRINT"SELL  ";E5;"  " ;K$(E2) ;E3;" 'S($" ; E4; "APIECE)" 

1029  INPUT"PRESS  SW«R  TO  CONTINUE" ;A$ 

1030  PRINTCHR$(147)TAB(40)"EXPENSES:" 


1040  PRINT 

"  IMMEDIATE 

$" 

;F6 

1045  PRINT 

"  LOAN  (50%) 

$" 

;F7 

1050  PRINT 

"  BROKER'S  FEES 

$" 

1055  PRINT 

OPTION 

$" 

;G4 

1060  PRINT 

"   IN 

$" 

;Gi 

1065  PRINT 

OUT 

$" 

;G3 

1070  PRINT 

"  MARGIN  COST 

$" 

;G6 

1080  PRINT 

"TOTAL 

$" 

;G7 
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1100  PRINTMINC0ME:": PRINT"  STOCK  $";E6 

1105  PRINT  "  OPTION     $";E7 

1110  PRINT  "  DIVIDENDS  $";F3 

1120  PRINT  "TOTAL       $";F4 

1125  PRINT :PRINT"THE  RETURN  ON  YOUR  MONEY  IS";H;"%($" ;G8;"  ON  $" ; INT(G9) ; ")" 

1130  PRINT"FOR  ";F1;"  DAYS,";H1;"%  ANNUALLY." 

1140  PRINT"THE  BREAK-EVEN  POINT  IS  A  PRICE  OF  $" ;  ( INT(H2*10) )/10:END 

1150  G2=((.009*F9)+22)+(6*G) 

1160  ON  F8  GOTO  1180,1190,1200 

1170  IF  G2<25  THEN  G2=25 

1175  RETURN 

1180  G2=INT(.7*G2):RETURN 

1190  G2=21*G: RETURN 

1200  G2=INT(.82*G2):RETURN 

1300  DATA  0,  JANUARY, 31, FEBRUARY, 59, MARCH, 90, APRIL,  120, MAY,  151,  JUNE,  182,  JULY,  212 

1310  DATA  AUGUST ,  243 ,  SEPTEMBER ,  272 , OCTOBER ,  304 ,  NOVEMBER ,  334 ,  DECEMBER 

4000  MN$=STR$(MN) 

4010  LN=LEN(MN$) 

4020  FOR  CN=1  TO  LN 

4030  KN$=MID$(MN$,CN,1) 

4040  PRINT  KN$; 

4050  IF  KN$="."  THEN  4070 

4060  NEXT  CN 

4065  PRINT  ".";:GOTO  4100 

4070  IF  LN-CN<2  THEN  4100 

4080  FOR  CT=CN+1  TO  CN+2 

4090  PRINT  MID$(MN$,CT,1);:NEXT:G0T0  4130 

4100  PN=LN-CN:IF  PN=1  THEN  PRINT  RIGHT$(MN$, 1)  ;"0" ; 

4120  IF  PN<=0  THEN  PRINT  "00"; 

4130  PRINT  "  ";:RETURN 


Computation  of  short-term  insolvency. 

In  this  "Z-Score"  computation  based  on  an  Ameri- 
can Institute  of  Certified  Public  Accountants 
timesharing  program,  the  short-term  liquidity 
trend  score  indicates  whether  a  company  is  likely  to 
face  financial  difficulties  in  the  near  future. 

Z  =  .012*((G-L)/I)  +  .014*(W/I)  + 
.033*  ((P+E)/I)  +  .006*  (W/M)  + 
.999*(S/I) 

where  G  =  current 

L  =  current  liabilities 
I  =  total  assets 
W  =  net  worth 

P  =  profit  before  income  taxes 
E  =  interest  changes 
M  =  total  liabilities 
S  =  sales 
Z  =  "Z  score" 


Stock  alpha  and  beta.  In  this  approach  to 
analysis,  the  investor  compares  movement  of  a 
stock  over  a  period  of  time  with  movement  of  a 
market  average.  This  can  be  best  measured  by 
comparing  the  percent  change  in  a  given  stock's 
price  with  the  percent  change  in  the  market  as  a 
whole  over  several  large  recent  market  fluctuations 
and  deriving  a  result  in  the  form  y=a+bx  where 
y=percent  change  in  a  stock's  price  given  x  as  the 
percent  change  in  the  market  level.  The  constant  a 
is  called  alpha  and  is  a  measure  of  the  stock's  abso- 
lute continuing  movement;  high  positive  alphas  are 
always  attractive  in  stocks.  The  coefficient  b  is 
called  the  stock's  beta  and  is  a  measure  of  the  riski- 
ness of  a  given  stock.  High  betas  should  produce 
good  relative  performance  in  a  bull  market,  but 
relatively  poor  performance  in  a  declining  market. 
Beta's  may  be  calculated  separately  as  a  function  of 
such  factors  as  size  of  the  company  involved,  its 
capital  structure  (for  example,   its  debt/equity 
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ratio),  return  on  equity,  earnings  consistency,  and 
so  forth.  You  may  experiment  with  multiple  linear 
regression  in  determining  the  relationship  between 
beta's  and  these  or  other  variables.  In  general,  the 
greater  the  beta,  the  cheaper  the  stock  should  seem 
to  be  and  the  greater  the  appreciation  potential.  A 
risk  versus  benefit  analysis  may  be  conducted, 
with,  for  example,  betas  charted  versus  potential 
appreciation  based  on  present  discounted  value  of 
the  price  of  the  stock. 

Equations  used  to  independently  determine 
stock  betas  are  as  follows  and  are  well-suited  for 
incorporation  into  a  portfolio  analysis  program: 

Stock  Beta 


Beta  = 


Variance  = 


/    Covariance  of  market  and  ] 
\       stock  risk  premiums     J 

Variance  of  market  risk  premium 

2   f  (market  risk  premium-ave\ 
time  I        market  risk  premiums 


Covariance  =     2     /  (SRP-ave.  SRP>*  ) 
time  y  (MRP-ave.  MRP)/ 

SRP  =  stock  risk  premium 
MRP  =  market  risk  premium 

risk  premium  =  (rate  of  return) - 

(risk  free  rate  of  return) 


risk  free  rate  of  return  = 


1 


12»(annual  rate  of 
a  3  month  T-bill) 


(price  at  month  end  +  dividend) - 
(price  at  month   start) 


rate  of  return  =  - 


price  at  month  start 


For  market  statistics  use  the  Standard  &  Poors 
500  Stock  Index. 


Beta  = 


Portfolio  Beta 

/(stock  beta)* 


portfolio  I  (%  of  market  value) 


■) 


%  market  value  = 


market  value  of  a  stock 
total  market  value 


market  value  of  a  stock   =  current  price  x  no.  of 

shares 

Inflation  rate  effect.  An  oversimplified  but 
often  useful  method  of  forecasting  the  effect  of  a 
given  inflation  rate  on  the  stock  market  is  as  fol- 
lows. First,  assume  that  the  cost  of  money  is  con- 
stant at  three  percent.  Add  to  this  value  a  one- 
percent  constant  that  will  be  assumed  to  be  the  risk 
factor  for  owning  stocks  instead  of  bonds.  To  this 
sum  add  the  current  inflation  rate.  Divide  this  final 
sum  into  100;  the  result  is  the  average  stock  market 
multiple  of  earnings.  Now,  multiply  this  result  by 
the  sum  of  the  estimated  yearly  earnings  of  the 
thirty  Dow  Jones  Industrial  stocks.  If  the  sum  of  the 
estimated  earnings  is  not  known,  a  simple  com- 
puter program  could  determine  earnings  for  the 
industrial  stocks  from  the  newspaper  listings  of 
price  and  price/earnings  ratios  (earnings  =price/ 
price-earnings  ratio);  a  method  of  determining  fu- 
ture earnings  growth  would  have  to  be  employed. 
The  final  product  calculated  is  a  projected  Dow 
Jones  industrial  stock  average. 

The  calculations  would  be  as  follows,  assum- 
ing an  inflation  rate  of  five  percent  and  estimated 
Dow  industrial  stock  earnings  of  $110: 


100 


(3%  +  1%  +  5% 


•  110.  =  1222. 


Calculation  of  the  future  value  of  an  in- 
vestment. You  can  use  the  program  in  Listing  2-4 
to  calculate  how  much  an  investment  will  be  worth 
in  the  future. 

Investment  analysis  using  interest  rate 
formulas.  The  set  of  interest  rate  formulae  out- 
lined below  may  be  used  to  assess  and  compare  the 
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Listing  2-4:  The  Future  Value  Program 

90  PRINTCHR$(147)TAB(40) 

100 

PRINT"CALCULATION  OF  THE  FUTURE  VALUE  OF  AN   INVESTMENT" 

110 

PRINT 

120 

PRINTMENTER  THE  CONSUMER  PRICE  INDEX 

FOR" 

130 

INPUT"THE  PREVIOUS  YEAR";F 

140 

PRINT"ENTER  THE  CONSUMER  PRICE  INDEX 

FOR" 

150 

INPUTMCURRENT  YEAR";E 

160 

PRINTMENTER  THE  PRESENT  VALUE  OF  THE 

INVEST-" 

170 

INPUT"MENT  (OR  PRODUCT/SALARY )M;C 

180 

PRINT"ENTER  THE  NUMBER  OF  PERIODS  TO 

BE" 

190 

INPUTMCALCULATEDM;B 

200 

A=(100*(E-F)/F)/100 

210 

D=INT((C*(A+l)2B)*100+.5)/100 

220 

PRINT 

230 

PRINTMTHE  FUTURE  VALUE  IS:  $M;D 

240 

PRINT 

250 

END 

values  of  investments  with  respect  to  time  and 
money,  considering  that  money  today  is  inherently 
worth  more  than  the  same  money  tomorrow.  In  an 
investment,  money  passes  from  and  to  the  investor 
in  the  form  of  borrowed  money,  loaned  money, 
dividends  received,  installment  loan  payments 
made,  and  so  on;  these  are  called  cashflows.  The 
resulting  profit  or  loss  can  be  measured  as  an  inter- 
est rate,  the  rate  being  absolute  throughout  the 
whole  period  of  investment  or  applying  only  to  a 
specific  time  interval.  A  $30  profit  on  a  $100  in- 
vestment four  years  ago  is  a  30%  profit  in  absolute 
terms,  but  when  it  is  measured  at  an  annual  rate 
(using  the  equations  below),  the  profit  comes  to 
6.8%. 

The  interest  equations  below  may  be  divided 
into  two  sets:  equations  1,  4,  7,  and  9  are  used  to 
measure  investments  in  which  transactions  occur 
only  twice— once  at  the  beginning  and  once  at  the 
end  of  the  investment  period.  The  other  eight 
equations  apply  to  problems  in  which  constant  dol- 
lar transactions  occur  at  regular  intervals.  An  in- 
stallment loan  is  a  good  example  of  this  kind  of 
problem.  If  you  borrow  $4000  to  buy  a  car  and  pay 
off  the  loan  over  36  at  12%  interest,  equation  11 
may  be  used  to  compute  the  amount  for  each  pay- 
ment ($132.86). 

It  is  important  to  note  that  there  is  no  formula 
for  solving  for  interest  rates  directly  in  the  second 
set  of  equations,  because  i  cannot  be  isolated  on  one 


side  of  the  equation.  The  only  method  to  solve  for 
interest  rates  in  this  situation  is  to  use  a  "brute- 
force"  approach  in  which  the  computer  tries  values 
for  i  and  solves  for  F  or  P  until  the  right  answer  is 
found.  The  value  for  i  would  be  successively  ap- 
proximated. 

The  formulae  in  Table  2-1  will  be  used 
throughout  this  chapter  in  discussing  loans, 
mortgages,  annuities,  and  real  estate  evaluation. 
The  uses  are  as  varied  as  the  diversity  of  invest- 
ments. The  personal  computer  becomes  useful  in 
answering  "what  if?"  questions  involving  changes 
in  interest  rates,  time  periods,  and  other  variables 
with  these  equations  or  useful  in  solving  equations 
5  and  6  in  Table  2-1,  which  require  an  iterative 
approach. 

Financial  databases.  The  easiest  way  to 
enter  information  into  stock-market  programs  is 
over  the  telephone.  Various  database  services  sup- 
ply detailed  financial  information— both  current  and 
historical— which  can  be  retrieved  by  any  computer 
through  a  telephone  modem.  On-line  services  offer 
most,  if  not  all,  of  the  securities  you  are  likely  to  be 
interested  in.  For  instance,  one  of  the  popular  per- 
sonal computer  networks  (CompuServe)  offers  the 
following  financial  information  for  instant  retrieval: 

•  Figures  on  more  than  9,000  securities,  updated 
throughout  each  trading  day— no  need  to  wait  for 
day-old  stock  values  in  the  newspaper. 


45 


This  table  shows  the  appropriate  formulae  to  use  given 
three  input  parameters  and  a  required  output  parameter. 

(n)  x     x     x  x  x  x 

(;)  xxx  xxx 

(P)  x  x  x       x  x 

(F)  x         xxx 

(R)  x       x  x       x  x 


no.  of  uniform  periods 
interest  rate  per  period 
present  value 
future  value 
uniform  payments 


REQUIRED 


1.    n  = 


log(l   +  l) 

1 


log 


2.  h  = 


3.  n  = 


1  -  iP//g 
*og(l  +  /) 

k>g(l  +  0 


4.  / 


7? 


5.  «=£(!  -H-/J-) 


6.  /  =  ^({1  +<]"-  1) 


/I 
I 

P  7     8 

F        9         10 
/?       11   12 


4  5  6 


1  2  3 


7.  /> 


(1  +  0" 


%.  P=  R 


1+0+ i)- 


9.  F  =  P(l  +  i)" 

,  0  +  V  -  1 


10.  F=  R- 


11.  1?=^ 


12.  /?  =  F 


/ 


1  -  (1  +  «)■ 


(1  +  /)"  -  1 


Table  2-1.  Look-up 
Table  of  Financial  Formulae. 


•  Detailed  descriptive  and  financial  information  on 
thousands  of  major  publicly-held  companies. 

•  Current  and  historical  information  on  more  than 
40,000  stocks,  bonds,  and  options. 

•  Continually  updated  information  on  prices  and 
basic  news  stories  incorporating  market  com- 
mentary and  statistics. 

•  Specialized  reports  on  commodities,  today's 
economy,  and  implications  for  the  future. 

•  Financial  commentary  from  the  nation's  leading 
news  publications. 

Alternatively,  companies  such  as  Standard  & 
Poor  offer  market  statistic  updates  sent  periodi- 
cally on  floppy  disk.  The  S&P  package  costs  about 
$500  per  year  and  provides  monthly  updates  of 
some  100  types  of  basic  financial  data,  ranging  from 


sales  to  assets,  for  about  1,500  publicly  traded 
companies. 

Other  databases  specialize  in  business  in- 
formation and  can  supply  text  of  leading  industry 
newsletters,  with  extensive  search  and  indexing 
capabilities.  The  NewsNet  Network,  945  Haver- 
ford  Road,  Bryn  Mawr,  PA  19010,  for  instance, 
provides  full  text  of  over  125  business  newsletters 
in  the  following  areas: 

advertising  and  marketing 

aerospace 

automobile  industry 

behavioral  sciences  and  social  services 

corporate  communications 

education 

electronics  and  computers 
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energy 

entertainment  and  leisure 

environment 

farming  and  food 

finance,  accounting,  and  taxes 

general  business  management 

government  regulations  and  law 

international  affairs 

investments 

labor 

metals  and  mining 

office  automation 

politics 

publishing  and  broadcasting 

real  estate 

politics 

telecommunications 

transportation 

Interest  calculations.  The  microcomputer 
can  be  used  to  calculate  simple,  compound  and  true 
interest.  A  program  could  be  written  to  calculate 
the  exact  number  of  days  between  two  dates,  and 
number  of  months,  days,  and  years  in  the  interest 
period:  leap  years  would  be  accounted  for.  The 
following  formula  would  be  used: 


cpd 


100  360 


where  i  =  interest  on  the  capital 

c  =  capital,  invested  or  borrowed 
p  =  rate  of  interest 
d  =  number  of  days 

Compound  interest  can  also  be  calculated. 
Given  three  of  the  four  variables  F,  P,  i,  and  n,  the 
fourth  may  be  solved  for  using  equations  1 ,  4,  7,  or  9 
in  Table  2-1. 

The  true  interest  is  calculated  as  follows: 


24F 


R    = 


ml    (m  +  1) 

m 

where  R  =  the  true  interest  rate 
F    =  finance  charge 
m  =  number  of  months 
I    =  monthly  installment 

The  BASIC  program  in  Listing  2-5  computes 
the  true  annual  interest  rate.  An  ideal  application 
involves  evaluation  of  installment  loans. 


Listing  2-5:  The  True  Annual  Interest  Rate  Program 

5  PRINT  CHR$(147) 

10  PRINT  "TRUE  ANNUAL  INTEREST  RATE  COMPUTATION" 

20  PRINT  "FOR  USE  WITH  INSTALLMENT  LOANS" 

25  PRINT 

30  PRINT  "ENTER  THE  AMOUNT  OF  THE  LOAN" 

35  INPUT  "WITHOUT  INTEREST" ;B 

40  INPUT  "ENTER  THE  AMOUNT  OF  EACH  PAYMENT"; A 

50  INPUT  "ENTER  THE  TOTAL  NUMBER  OF  PAYMENTS" ;C 

60  INPUT  "ENTER  THE  NUMBER  OF  PAYMENTS  PER  YEAR";D 

70  PRINT -.PRINT 

80  IF  C=l  THEN  680 

90  IF  C*A>=B  THEN  150 

100  PRINT: PRINT 

110  PRINT  "THE  PAYMENTS  SUM  TO  LESS  THAN  THE  AMOUNT  OWED"; 

120  PRINT 

130  INPUT  "PRESS  'RETURN'  WHEN  READY" :A$ 

140  GOTO  10 

150  E=0:F=100 

160  GOSUB  260 

170  IF  A=G  THEN  360 

180  IF  A>G  THEN  220 

190  E=E-F:G0T0  230 
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220  E=E+F 

230  F=F/2 

240  IF  FO0001  THEN  360 

250  GOTO  160 

260  H=E/(100*D) 

270  J=H+1 

280  IF  C*J<=75  THEN  310 

290  G=B*H 

300  RETURN 

310  IF  G>1  THEN  G=B*J*C*H/(  J*C-1)  :GOTO  320 

315  G=B/C 

320  RETURN 

360  E=.01*INT(.05+100*E) 

370  IF  E<199.5  THEN  430 

380  PRINT 

390  PRINT  "THE  INTEREST  RATE  IS  TOO  HIGH; RE-ENTER" 

420  GOTO  10 

430  PRINT: PRINT   "TRUE  ANNUAL   INTEREST  RATE=";E;"%" 

440  PRINT: PRINT 

450  PRINT   "ENTER    'QUIT'    WHEN  FINISHED  OR" 

455   INPUT   "PRESS  RETURN  TO  CONTINUE"  ;A$ 

457   IF  A$="QUIT"   THEN  END 

460  GOTO   10 

680  E=(A/B-1)*D 

690  E=100*E 

700  GOTO   360 


Minimum  investment  for  withdrawals. 

This  formula  may  be  used  to  determine  the 
minimum  investment  required  to  allow  regular 
withdrawals  of  a  given  amount  over  a  given  time 
period,  assuming  compounded  interest  with  each 
withdrawal  and  an  ending  balance  of  $0.  A  retiree 
might  use  this  formula  to  compute  the  amount  to 
invest  in  a  savings  account  at  6  percent  interest  to 
provide  monthly  withdrawals  of  $100.00  for  10 
years. 


R-N    / 


1 


(1  +  i/N)N 


where  P  =  initial  investment 

R  =  amount  of  regular  withdrawal 
i  =  nominal  interest  rate 
N  =  number  of  withdrawals  per  year 
Y  =  number  of  years 


Mortgages 

The  computer  can  be  very  useful  to  the  home 
buyer  in  simplifying  the  many  financial  options 


available.  You  can  use  your  computer  to  determine 
mortgage  payments  based  on  the  interest  rates 
available,  the  length  of  the  life  of  the  mortgage,  and 
the  amount.  With  recent  swings  in  interest  rates, 
knowing  what  you  will  be  paying  at  any  given  inter- 
est can  be  very  important;  a  difference  of  a  half  or 
one  percent  can  be  substantial.  This  information  is 
also  important  in  budget  planning— in  determining 
how  much  of  the  family  income  must  be  allocated  to 
mortgage  or  loan  payments.  You  can  do  a  "What  if?" 
analysis;  that  is,  if  interest  rates  are  predicted  to 
decline  by  3%  next  year,  is  it  best  to  buy  or  wait? 
With  your  microcomputer  and  the  financial  for- 
mulae outlined  in  Table  2-1,  the  financial  ramifica- 
tions of  home  buying  or  other  investments  can  be 
easily  determined. 

It  may  be  worth  your  while  to  analyze  a 
mortgage  agreement  on  your  computer  before 
signing  any  contracts.  A  yearly  amortization  pro- 
gram could  calculate  a  schedule  of  payments,  the 
annual  debt  service,  the  mortgage  constant,  the 
remaining  balance,  the  payment  to  principal,  the 
payment  to  interest,  the  accumulated  principal,  and 
the  accumulated  interest  for  each  year.  A  general 
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Listing  2-6:  The  Mortgage  Schedule  Program 

10  PRINT  CHR$(147):REM  CLEAR  SCREEN 

100  PRINT  "MORTGAGE  SCHEDULE  CALCULATION" 

110  PRINT  "BASED  ON  MONTHLY  PAYMENT": PRINT 

120  DIM  A(3),B(3) 

140  PRINT  "ENTER  THE  NUMBER  OF  YEARS  OF  THE" 

145  INPUT  "MORTGAGE" ;X 

150  INPUT  "ENTER  THE  YEARLY  INTERST  RATE";X1 

160  INPUT  "ENTER  THE  AMOUNT  OF  THE  MORTGAGE"  ;B 

170  B1=12*X 

180  X1=X1/1200 

190  B2=B-*Xl/(l-(l/(l+Xl)rBl) 

200  T=0 

210  B(2)=0:B(1)=0:B3=B2*B1-B:A(2)=0:A(3)=B:A(1)=0 

220  PRINT  "MONTHLY  PAYMENT  IS  $";B2 

230  PRINT 

240  PRINT  "PRINCIPAL",, "INTEREST", "TOTAL" 

245  PRINT  "YR  PAID  REMAINING     PAID", "PAID" 

250  FOR  1=1  TO  X 

260  FOR  J=l  TO  12 

270  T=T+B2 

280  B(l)=A(3)-"-Xl 

290  A(1)=B2-B(1) 

300  A(2)=A(2)+A(1) 

310  A(3)=A(3)-A(1) 

320  B(2)=B(2)+B(1) 

330  B(3)=B(3)-B(1) 

340  NEXT  J 

350  PRINT  I;"  "; :FT=A(2) :GOSUB  400 

355  PRINT  "  ";:FT=A(3):G0SUB  400 

357  PRINT  "  ";:FT=B(2):G0SUB  400 

359  PRINT  "  ";:FT=T:GOSUB  400:PRINT  "" 

360  NEXT  I 
370  PRINT 
380  END 

400  FT$=STR$(FT) 

410  FOR  N=l  TO  LEN(FT$) 

420  PRINT  MID$(FT$,N,1); 

430  IF  MID$(FT$,N,1)="."  THEN  450 

440  NEXT 

445  PRINT  ".00";: GOTO  500 

450  L=LEN(FT$)-N 

460  IF  L>=2  THEN  FOR  P=l  TO  2:PRINT  MID$(FT$ ,  (N+P) , 1 ) ; :NEXT 

470  IF  L=l  THEN  PRINT  MID$(FT$ ,  (N+l) ,  1)  ;"0";  :GOTO  500 

480  IF  L<1  THEN  445 

500  RETURN 


amortization  program  could  solve  for  the  following 
additional  factors:  the  number  of  payments  to  reach 
a  certain  balance,  the  payment  amount,  the  annual 
percentage  rate,  and  the  principal  amount.  Listing 
2-6  is  a  sample  mortgage  schedule  program. 

Special  programs  could  calculate  the  above 
values  for  wraparound  mortgages  and  determine 


the  price  and  yield  of  discounted  mortgages. 

Loans 

An  amortization  schedule  for  a  loan  as  well  as 
the  time  required  for  repayment  can  be  calculated 
by  the  loan  amortization  program  in  Listing  2-7. 

Here  is  a  sample  run  showing  how  this  pro- 
gram functions. 
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LOAN  AMORTIZATION  SCHEDULE 

PRINCIPAL=$4800.00 
#OFPERIODS=12 
INTEREST  RATE=5.6% 


PAYMENT 

REMAINING 

MONTHLY 

PRINCIPAL 

INTEREST 

NUMBER 

PRINCIPAL 

PAYMENT 

PAYMENT 

PAYMENT 

1 

4410.16 

412.24 

389.84 

22.40 

2 

4018.51 

412.24 

391.66 

20.58 

3 

3625.02 

412.24 

393.48 

18.75 

4 

3229.70 

412.24 

395.32 

16.92 

5 

2832.54 

412.24 

397.16 

15.07 

6 

2433.52 

412.24 

399.02 

13.22 

7 

2032.64 

412.24 

400.88 

11.36 

8 

1629.89 

412.24 

402.75 

9.49 

9 

1225.26 

412.24 

404.63 

7.61 

10 

818.74 

412.24 

406.52 

5.72 

11 

410.32 

412.24 

408.42 

3.82 

12 

0.00 

412.24 

410.32 

1.91 

OVERALL  TOTALS 

$4946.84 

$4800.00 

$146.84 

Listing  2-7:  The  Loan  Amortization  Program 

10  PRINT  CHR$(K7)TAB(5)"LOAN  AMORTIZATION  CALCULATOR" 

20  PRINT 

30  PRINT  "LOANS" .-PRINT 

40  PRINT  "SELECT :1)PAYMENT  AMOUNT  CALCULATION" 

50  INPUT  "       2)TIME  OF  PAYMENT  CALCULATION"; A 

60  ON  A  GOTO  70,2000 

65  GOTO  40 

70  INPUT  "ENTER  THE  AMOUNT  OF  THE  LOAN"; AM 

80  PRINT  "ENTER  THE  NUMBER  OF  PAYMENTS" 

85  INPUT  "(USUALLY  YRS*12)";N 

90  INPUT  "ENTER  THE  ANNUAL  INTEREST  RATE"; I 

100  B=I/1200 

110  C=N 

120  PRINT  "ENTER  THE  MONTH  OF  THE  FIRST" 

125  INPUT  "PAYMENT  (1-12)";M 

130  INPUT  "ENTER  THE  YEAR  OF  FIRST  PAYMENT" ;Y 

140  D=1:F0RX=1  TO  C 

150  D=(1+B)*D 

160  NEXT  X 

170  D=1/D:F=B/(1-D)*AM 

180  G=F:G0SUB  5000 

190  F=G 

200  H=Y:J=1:L=AM:K=M-1:E=0:P=0 

210  PRINTCHR$(147) 

220  PRINT  "AMORTIZATION  TABLE" 

230  PRINT  "MONTHLY  PAYMENT:  $";F 

240  PRINT  "AMOUNT  OF  LOAN:  $" ;TAB(14)AM;TAB(24) ; "INTEREST  RATE=";I; 


50 


260  IF  S=0  THEN  PRINT: GOTO  280 

270  PRINT  "TERM+";N; "MONTHS" 

280  PRINT  "PAYMENTS  #";J;"TO  ";J+9 

290  PRINT  "DATE   INTEREST" /'PRINCIPAL   BALANCE" 

300  FOR  X=J  TO  J+9 

310  K=K+1 

320  IFK=13  THEN  K=1:H=H+1 

330  A2=L*B:G=A2 

340  GOSUB  5000 

350  A2=G:S=F-A2:G=S 

360  GOSUB  5000 

370  S=G 

380  L=L-S:G=L 

390  GOSUB  5000 

400  L=G:P=A2+P:E=S+E 

410  PRINT  K;"/";H;:FT=A2: GOSUB  6000 :FT=S: GOSUB  6000 :FT=L: GOSUB  6000:PRINT  "" 

420  IF  J=C-1  THEN  600 

430  J=J+1 

440  NEXT  X 

450  G=P 

460  GOSUB  5000 

470  P=G 

480  PRINT  "TOTAL  INTEREST  $";P; "TOTAL  PRINCIPAL  $";E 

490  INPUT  "PRESS  RETURN  TO  SEE  NEXT  PAGE";A$ 

500  GOTO  210 

600  A2=B*L 

610  G=A2 :GOSUB  5000 

620  A2=G:S=L:A3=F:F=S+A2:K=K+1 

630  IF  K=12  THEN  K=1:H=H+1 

640  L=L-S:J=J+1:E=S+E:P=P+A2 

650  PRINT  K;:FT=A2: GOSUB  6000 :FT=S: GOSUB  6000 :FT=L: GOSUB  6000:PRINT  "" 

660  PRINT  "TOTAL  INTEREST  TO  DATE=$";P 

670  PRINT  "TOTAL  PRINCIPAL  TO  DATE=$";E 

680  PRINT  "FINAL  PAYMENT=$";F 

690  G=F: GOSUB  5000 

700  F=G:F=A3 

710  INPUT  "PRESS  RETURN  WHEN  READY" ;A$ 

720  GOTO  30 

2000  PRINT  CHR$(147) 

2010  INPUT  "ENTER  THE  AMOUNT  BORROWED" ;B1 

2020  INPUT  "ENTER  THE  INTEREST  RATE/YR";B2 

2030  INPUT  "ENTER  THE  MONTHLY  PAYMENT" ;E 

2040  INPUT  "ENTER  THE  MONTH  PAYMENTS  BEGIN  (1-12)";M 

2050  INPUT  "ENTER  YEAR  OF  THE  BEGINNING  PAYMENT" ;Y 

2060  B3=B1*B2/1200-E 

2070  IF  B3<=0  THEN  2130 

2080  PRINT:PRINT:PRINT:PRINT 

2090  PRINT"THE  MINIMUM  PA YMENT=$" ; :FT=B1*B2/ 1200: GOSUB  6000:PRINT  "" 

2100  INPUT  "CONTINUE  (Y/N)";A$:IF  A$="Y"  THEN  GOTO  40 

2105  END 

2130  B=1-B2/1200*B1/E 

2140  X=B:GOSUB  4000 

2150  B=R 

2160  F=l+B2/1200 

2170  X=F: GOSUB  4000 

2180  F=R 

2190  J=-(B/F) 

2200  PRINT 
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2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2325 
2330 
4000 
4010 
4020 
4030 
5000 
5010 
6000 
6010 
6020 
6030 
6040 
6045 
6050 
6060 
6070 
6080 
6090 
6100 
6105 
6110 


IF  B3=0  THEN  PRINT"PAYMENTS  COVER  INTEREST  ONLY": GOTO  2230 

PRINT  "NO.  OF  MONTHS  FOR  PAYMENTS=";J 

H=INT(J/12):N=J-H*12 

IF  N>1  THEN  N=N+1 

N=INT(N):C=12*H+N 

IF  N>11  THEN  H=H+1:N=N-12 

IF  B3=0  THEN  S=0:G0T0  2290 

PRINT"=";H;"YEARS+";N; "MONTHS  TO  PAY  LOAN" 

PRINT:PRINT:PRINT 

INPUT  "PRESS  RETURN  TO  CONTINUE" ;A$ 

J=N:B=B2/1200:F=E:N=N+12*H:AM=B1:R=B2 

F=F/B3 

F=E:I=B2 

GOTO  180 

AM=(X-1)/(X+1) 

C=AM43 

R=2^KAM+l/3-C+l/5-«-AM42-';-C+l/7-«-C42-"-AM+l/9-C43+l/ll-"-C43-"-AM42) 

RETURN 

G=INT(  (G-INT(G)  )* 100+  .  50001  )/100+INT(G) 

RETURN 

FT$=STR$(FT) 

FOR  W  =  l  TO  LEN(FT$) 

PRINT  MID$(FT$,W,1); 

IF  MID$(FT$,W,1)="." 

NEXT 

PRINT  ".";:GOTO  6080 

FOR  Q=(W+l)T0(W+2) 

PRINT  MID$(FT$,Q,1); 

NEXT 

Z=LEN(FT$)-W 

IF  Z<1  THEN  PRINT  "00"; 

IF  Z=l  THEN  PRINT  "0"; 

PRINT  "   "; 

RETURN 


THEN  GOTO  6050 


J 


Loan  with  points.  Points  are  a  percentage  of 
the  value  of  a  loan  that  is  paid  at  the  start  of  the  loan 
period.  Theoretically,  the  seller  pays  the  points, 
but  in  practice  it  does  not  matter  who  pays— the 
price  of  the  house  increases  with  the  addition  of 
points. 

One  point  represents  one  percent  of  the 
mortgage  value.  It  must  be  paid  at  the  beginning  of 


the  loan.  The  important  question  to  consider  is  how 
does  the  addition  of  points  affect  the  annual  per- 
centage rate  actually  being  paid  for  the  loan?  The 
program  in  Listing  2-8  will  calculate  this  value 
given  the  number  of  points,  amount  of  the  loan, 
years,  and  annual  percentage  rate  of  the  loan.  It 
outputs  the  value  for  monthly  payments  and  true 
annual  percentage  rate. 


Listing  2-8:  The  Loan  with  Points  Program 

10  PRINT  CHR$(147)TAB(50)"L0AN  WITH  POINTS" 

20  PRINT  "ENTER  LOAN  AMOUNT,  NUMBER  OF  POINTS" 

25  INPUT  L,P 

30  PRINT  "ENTER  ANNUAL  PERCENTAGE  RATE,  YEARS" 

35  INPUT  A,Y 

40  P=P*.01:A=.01*A/12:Y=Y*12 

50  R=L*((A*(A+1)4Y)/((A+1)AY-1)) 

60  PRINT  "MONTHLY  PAYMENT— $";R 

70  FOR  D=l  TO  100 
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75  REM  A  MEANS  TO  RAISE  TO  A  POWER 

80  F=.0001*D+A:X=(1-P)*L*((F*(1+F)*Y)/((1+F)4Y-1)) 

90  IF  X>R  THEN   110 

100  NEXT  D:PRINT  "PROGRAM  UNABLE  TO  CALCULATE  VALUE": END 

110  PRINT   "ACTUAL  ANNUAL  PERCENTAGE  RATE=";F*1200:lf%":END 


Direct  reduction  loan.  The  payment, 
present  value,  or  number  of  time  periods  for  a 
reduction  loan  may  be  calculated  by  using  equations 
2,  8  and  11  in  Table  2-1. 

Additional  loan  formulae.  Here  are  some 
more  formulae  that  you  will  find  useful  when  you 
are  dealing  with  loans. 
•  Principal  on  a  loan 


R-  N 


P  = 


1- 


1 


(1  +  i/N)N 


where  P  =  principal 

R  =  regular  payment 

i   =  annual  interest  rate 

N  =  number  of  payments  per  year 

Y  =  number  of  years 

•  Regular  payment  on  a  loan 


R  = 


i-  P/N 


'-(*«r 


where  R  =  regular  payment 

i  =  annual  interest  rate 

P  =  principal 

N  =  number  of  payments  per  year 

Y  =  number  of  years 


•  Term  of  a  loan 

log  (l  - 

Y= 

N*  R/ 
i   \ 

1 

N 

log 

\  iN  / 

where  Y  =  term  of  payment  in  years 
P  =  principal 


i   =  annual  interest  rate 

N  =  number  of  payments  per  year 

R  =  amount  of  payments 

Depreciation  Calculations 

Standard,   composite,   and  excess  deprecia- 
tions may  be  calculated  with  the  following  methods: 

1)  Straight  line  depreciation 

D=PV/n 
B  =PV-kD 

k 

2)  Sum-of-the-years-digits  depreciation 


S+  (n-k)  D 


B    = 

k 


Dk   = 


2    (n-k  +  1)  PV 


n    (n  +  1) 


3)  Variable  rate  declining  balance  depreciation 
D    =PV—  (1  -  R/n)    k~l 


B    =  PV    (1-R/n) 


In  each  of  the  above  depreciation  formulas, 

PV  =  original  value  of  asset  (less  salvage  value) 
n    =  lifetime  number  of  periods  of  asset 
Bk  =  book  value  at  time  period  K 
D    =  each  year's  depreciation 
k    =  the  number  of  the  time  period  (that  is,  1,  2,  3, 

.  .  .  n) 
S    =  salvage  value 
R    =  depreciation  rate 
Dk  =  depreciation  at  time  period  k 

The  program  in  Listing  2-9  can  be  used  to 
compare  depreciation  methods. 
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Listing  2-9:  The  Depreciation  Method  Comparison  Program 

10  PRINT  CHR$( 147): PRINT  "DEPRECIATION  METHOD  COMPARISON" 

20 

INPUT 

"ENTER  PURCHASE  C0ST";C 

30 

INPUT 

"ENTER  LIFE  IN  YEARS" ;L 

40 

INPUT 

"ENTER  SCRAP  VALUE" ;S 

60 

B=C-S : 

D1=B/L:M=((L+1)/2)*L:F=L 

65 

PRINT 

"KEY:  SL=STRAIGHT  LINE;  DD=D0UBLE  DECL;   SD=SUM  OF  DIGITS" 

67 

PRINT 

"YEAR","SL","DD","SD" 

70 

FOR  X= 

=1  TO  L:D2=B*(F/M):F=F-1 

80 

D3=2*C/L:C=C-D3 

90 

PRINT 

X,INT(D1),INT(D3),INT(D2):NEXT  X 

Here  are  some  sample  results  from  the  depre- 
ciation program. 


YEAR     STRAIGHT     DOUBLE 


NO. 

1 

2 

3 

4 


LINE 

$  1250.00 
$  1250.00 
$  1250.00 
$   1250.00 


DECL 
$  2750.00 
$   1375.00 
$     687.50 
$     343.75 


SUM  OF 
DIGITS 
$  2000.00 
$  1500.00 
$  1000.00 
$     500.00 


which  a  future  value  is  accumulated  by  making 
equal  payments  at  equal  intervals  at  a  certain 
interest  rate.  The  value  can  be  computed  using 
equation  10  in  Table  2-1. 

Annuity  due— the  future  or  present  value  can  be 
calculated  using  equations  8  and  10  in  Table  2-1. 
Ordinary  annuity— This  value  may  or  may  not 
include  a  balloon  payment.  Again,  use  equations 
2,  8,  and  11  in  Table  2-1. 


The  actual  depreciation  rate  for  an  investment 
is  computed  with  the  formula. 


depreciation   _ 


rate 


1 


resale  price   \1/age 
original  price  / 


and  may  be  used  to  answer  queries  such  as  "If  a  car 
was  bought  for  $9000  and  sold  three  years  later  for 
$5100,  what  was  the  depreciation  rate?" 

The  salvage  value  of  an  item  at  the  end  of  a 
given  year  may  be  calculated  with  the  formula 

S  =  P(l  -  i)Y 

where  S  =  salvage  value 
P  =  original  price 
i  =  depreciation  rate 
Y  =  age  in  years 

Annuities 

Given  the  values  of  the  required  variables  as 
input  data,  an  annuity  program  could  calculate  the 
remaining  variable  in  any  of  the  following  situa- 
tions: 
•  Sinking  funds— a  sinking  fund  is  an  annuity  in 


Bonds  and  Warrants 

A  useful,  simple  program  could  be  written  to 
determine  the  value  of  both  short  and  long  term 
warrants.  Given  present  value,  coupon  interest, 
yield  to  maturity,  and  maturity  value  or  the  number 
of  periods  (three  values  out  of  the  four),  a  computer 
program  can  compute  the  remaining  term.  Taxes, 
commissions,  and  current  yield  could  also  be  de- 
termined. The  formula  used  to  calculate  the  present 
value  (cost)  of  a  bond  with  annual  coupons  is  as 
follows: 


Price 


k 


-  (1  +  i/c)" 


i/c 
[(l+i/c)-n 


1 


(1000)] 


where     i  =  discount  rate  as  % 

n  =  number  of  years  to  maturity  multi- 
plied by  2 
Cr  =  coupon  rate  of  bond 
c  =  number  of  compounding  periods  per 
year 

The  formula  used  to  calculate  the  bond  yield  of 
an  annual  coupon  is  as  follows: 
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Fg 

-  (B.V.), 

"  (B-V->„ 

n 

j 

(B.V.),  + 

(B.V.)„ 

where  j  =  nominal  yield  rate 
(B.V.)1  =  original  bond  value 
(B.V.)n  =  bond  at  n  years 

F  =  face  value 

g  =  nominal  dividend  rate 

n  =  number  of  years 

PERSONAL  ACCOUNTING 

There  are  a  number  of  ways  in  which  your 
personal  computer  can  help  you  manage  your  per- 
sonal finances  more  effectively.  The  computer  can 
help  you  deal  with  everything  from  credit  card  pay- 
ments to  income  tax  calculations. 

Personal  Accounts  Receivable/Payable 

A  personal  AP/AR  program  similar  to  a  busi- 
ness AP/AR  program  could  manage  a  large  portion 
of  your  financial  affairs.  The  program  could  include 
these  features: 

1.  A  checking  and  savings  account  management 
program  to  enable  you  to  maintain  the  current 
balance  of  your  checking  and  savings  accounts. 
Interest  credits  could  be  calculated  and  added.  A 
file  of  each  check  (with  its  number,  purpose, 
notes,  amount,  and  payee)  could  be  stored  for 
later  income  tax  preparation.  Specialized  re- 
ports could  be  generated  from  this  check  file 
including  a  check  register  for  a  specified  time 
period,  the  distribution  of  expenditures,  and 
statements  of  selected  accounts.  The  ideal  pro- 
gram would  request  all  information  concerning 
each  check  written,  store  this  information,  and 
print  the  check  itself. 

2.  A  budgeting  program  to  keep  you  up  to  date  on 
expenditures  in  various  areas  so  that  income  can 
be  allocated  appropriately.  A  plan  for  family 
spending  could  take  the  following  format: 

Set-asides 

Emergencies  and  future  goals        


Seasonal  expenses 
Debt  payments 
Regular  monthly  expenses 
Rent  or  mortgage  payment 
Utilities 
Installment  payments 
Other 
Total 
Day  to  day  expenses 
Food  and  beverages 
Household  maintenance 
Furnishings,  equipment 
Clothing 
Personal 
Transportation 
Medical  care 
Recreation,  education 
Gifts,  contributions 
Total 
Total  of  all  expenses 


Alternatively,  you  could  take  realistic  esti- 
mates for  the  upcoming  year  and  enter  these 
figures.  A  program  could  use  this  information  in 
computing  the  percentage  of  gross  income  that  each 
item  requires.  As  a  rule  of  thumb,  housing  should 
cost  no  more  than  one  fourth  of  your  gross  income. 
(This  is  an  example  of  one  of  the  budgeting  princi- 
ples discussed  in  most  references  concerning  fam- 
ily budget  preparation.)  The  home  computer  re- 
moves the  drudgery  of  manual  calculations  for  those 
determined  to  stick  to  a  well-planned  budget. 

On  command,  a  budget  program  could  print 
month-to-date  figures  and  an  end-of-month  com- 
parison of  budget  versus  actual  expenses.  It  can 
also  show  the  amount  of  cash  needed  to  meet 
budgeted  expenses  for  the  rest  of  the  month.  It 
could  also  maintain  tax  records,  keep  a  running 
balance  of  cash  on  hand,  keep  an  inventory  of  your 
possessions,  and  even  help  in  planning  weekly 
menus. 

Table  2-2  shows  a  portion  of  a  personal  budget 
report  that  indicates  where  the  money  has  been  and 
will  be  spent  in  spreadsheet  fashion.  Such  spread- 
sheets, besides  being  a  personal  planning  benefit, 
are  often  useful  when  securing  a  personal  loan. 
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Table  2-2. 

A  Portion  of 

a  Personal  Budget  Sheet  in  Spreadsheet  Form. 

ACTUAL  FOR 

JOE  SMITH 

OCT. 

8,  1982 

EXPENSE 

JAN 

FEB 

MAR 

APR 

MAY 

JUN 

JUL 

AUG 

RENT 

650 

0 

0 

0 

0 

0 

0 

0 

FOOD 

323 

361 

357 

371 

290 

251 

410 

356 

CLOTHES 

154 

0 

54 

0 

0 

0 

0 

68 

UTILITIES 

57 

56 

50 

59 

62 

51 

53 

59 

CREDIT  CARD  INTEREST 

0 

0 

0 

0 

0 

0 

0 

0 

ENTERTAINMENT 

143 

100 

58 

13 

24 

45 

125 

54 

GASOLINE 

100 

110 

90 

100 

100 

100 

95 

90 

MORTGAGE  INTEREST 

0 

0 

0 

0 

0 

0 

0 

0 

MISCELLANEOUS  EXPENSE 

28 

0 

44 

0 

98 

0 

0 

48 

CAR  EXPENSES 

990 

0 

0 

0 

0 

0 

0 

0 

TOTAL  EXPENSE 

2445 

627 

653 

543 

574 

447 

683 

675 

NET  INCOME 

105 

1623 

1597 

2091 

1676 

1803 

1863 

1825 

3. 


A  financial  behavior  determination  program  to 
help  you  analyze  your  expenditures  and  sum- 
marize your  spending  in  various  areas  (the 
categories  of  the  budget  above)  that  would  be 
useful  in  preparing  a  budget  plan. 

According  to  the  experts  at  the  U.S.  Dept. 
of  Labor,  a  family  of  four  should  typically  allo- 
cate its  spending  as  follows: 


Medical 
All  other 


7% 

4% 


Housing 

24% 

Food 

24% 

Transportation 

15% 

Clothing,  personal  care 

13% 

Taxes 

13% 

Families  differ,  but  how  do  your  own  expenses 

correspond  to  these  percentages? 

4.  A  file  of  unfulfilled  contracts,  mail  orders,  and  so 
on  for  which  you  have  sent  checks  and  yet  have 
received  no  reply.  As  replies  are  received,  the 
appropriate  accounts  are  removed  from  the  file. 

Daily  Interest  Passbook  Savings  Account 

You  can  use  the  BASIC  program  in  Listing  2-10 
to  maintain  a  savings  account.  The  program  has 
provisions  for  interest,  withdrawals,  and  deposits. 


Listing  2-10:  The  Daily  Interest  Savings  Program 


10 

20 
30 
40 
45 
50 

1  1  0 

120 
130 
1 40 
150 
160 


PR  I NTCHR*  (.  1 47  >  TAB  ( 40  ;:■ "  DA  I L V  I HTEREST  FDR  PASSBOOK  S  AV I NG 
PRINT -PR I NT" ENTER  DEF0SITS  R3  POSITIVE  NUMBERS," 
PR I NT "WITHDRAWALS  AS  NEGATIVE  NUMBERS." 
PR I  NT "ENTER  0  AT  FINAL  DATE  TO  COMPUTE 
PR  I  NT "  WJra«WWWK<PRESS  ANY  KE Y» " 


THE 


INTEREST' 


GET  A*:  IFA$=,,MTHEN50 
PRINTCHR$(147> 
INPUT" ENTER  THE 
E:==F/36000 

PR I NT "SELECT-  1>USE 
INPUT"  2HJSE 
0=0 


ANNUAL  INTEREST  IN 


ACTUAL  DAYS 
30  HAYS  FOR 


IN  MONTH " 
MONTH" ;D 
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178  PR  I  NT"  ENTER  THE  STRRTING  DRTE  NUMERICFlLLV  AS" 

ISO  INPUT "MONTH, DRV" ;R,B 

138  INPUT  "ENTER  THE  STRRTING  BHLRNCE'SC 

200  IP  D=l  THEN  INPUT"  IS  THIS  R  LERF  VERR(  WW  "  .:  H$  :  GOSUE  1000 

210  IF  DOl  THEN  GOSUE  500 

220  J=K :PRIHT 

230  PR I  NT "DRTE   NITHDRRN     DEPOSIT   ERL    INT" 

240  PRINT  R.;  "/"  ;E,  ,  "       ",iC 

250  I NPUT " ENTER  MONTH , DRV , RNOUHT " ; R , E , L 

260  IF  H=2  THEN  GOSUE  500 

270  IF  Ii<:>2  THEN  GOSUE  1000 

2 SO  GOTO  700 

500  M-E 

510  IF  <R=2>  OR  'r.R=4>  0R<fl=6>0Rf  R=3>0R':.fl~l  1  >THEN  520 

513  GOTO  600 

520  I  Ffl~2HNDB=28THEN  I NFUT  "  I S  TH 1 3  R  LERF  YEHR  <.  V/N )  "  .:  N$  ;  I  FN$0 1 THEN590 

525  I Ffl=2RNDE~28RNDN=  1 THENGOT  06 1 0 

530  IF  E>27  THEN  E=31 

530  IF  E=39  THEM  E=31 

600  Ks=B+'-R-r;«*3e 

610  RETURN 

700  0-=:K 

710  IF  J=K  THEN  750 

720  FOR  F=JTO  K-l 

730  G==G+G*E+C*E 

740  NEXT  P 

750  OC+L 

760  G~  <  I  NT  (.  C  G I  NT  k  G ) >  *  1 09* ,,  590 1  >  >  / 1 00+ 1  NT  •■  G  > 

770  PRINTR.U'1.; 

780  IF  L<0  THEN  PRINT  TRE'S,"';-.;! ; : GOTO  730 

733  PRINT  TREaS);L; 

7S0  PRINT  TRE':.27);C; 

300  PRINT  TRE(34).iG 

310  J-0 

320  GOTO  250 

1 000  ON  R  GOTO  1 0 1 0 .-  1 020 ,  1 030 ..  1 040  .•  1 050 ,  1 868  •■  1 878 ,  1 880 ,  1 OSO  ,111 0 .-  1  1 28 ,  1 1 38 

1818  K>B:GOTO  1140 

1820  K-E+31  -GOTO  1140 

1038  K~B+5S»+N:G0T0  1140 

1840  K^B+S'O+I-FGOTO  1140 

1 850  K--B+ 1 28-+-N  :  GOTO  J.  1 48 

1060  K-E+131+H:G0T0  1140 

1878  K=B+1S1+N-G0T0  1140 

1880  K=E+212+N'-G0T0  1140 

1 830  K--B+243+H  :  GOTO  1 1 40 

1110  K=B+273+N:G0T0  1140 

1120  K=::E+304+N  :  GOTO  1140 

1130  K~B+334+N 

1140  N--E  :  RETURN 

Income  Tax 

Preparation  of  income  tax  forms  is  a  task  that 
lends  itself  well  to  computers  because  computers 
are  great  organizers  and  calculators,  and  they  can 
save  you  time  and  money.  Tax  preparation  pro- 
grams range  from  simple  arithmetic  calculators  to 
complete  personal  accounting  programs.  In  the 


most  popular  approach,  the  computer  requests 
answers  to  such  questions  as,  "What  are  your  fed- 
eral withholding  taxes?''  You  proceed  to  answer  all 
the  possible  questions  necessary  to  prepare  a  1040 
tax  form  (approximately  50),  but  unfortunately  you 
must  first  do  considerable  accounting  and  calculat- 
ing to  answer  some  of  the  questions.  The  program 
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completes  the  simple  arithmetic  for  filling  in  the 
1040  form  and  prints  the  proper  values  in  the  boxes 
on  the  form. 

A  more  complex  approach  would  involve  the 
periodic  storage  of  all  elements  of  your  finances  on 
cassette  or  floppy  disk  (for  example,  each  week  you 
could  store  the  names,  addresses,  purposes,  num- 
bers, and  amounts  of  all  checks  written  or  cashed.) 
At  years'  end,  the  computer  would  search  and  group 
all  relevant  data  and  do  all  of  the  necessary  calcula- 
tions. In  this  latter  approach,  a  complete  summary 
of  all  deductions,  income,  and  so  on  could  be  printed 
categorically.  References  to  the  filed  location  of  the 
original  checks,  bills,  and  receipts  could  be  in- 
cluded for  proof  of  the  transactions.  A  warning 
could  also  be  issued  in  the  event  that  your  deduc- 
tions exceed  ten  percent  of  your  income  (a  tax  audit 
would  be  likely).  Provisions  could  be  made  to  com- 
pare the  taxes  you  would  pay  if  you  filed  jointly  with 
your  spouse  to  what  you  would  pay  if  you  filed  as  an 
individual. 

A  tax  planning  program  can  help  cut  your  tax 
liability  in  the  years  to  come.  Investment  decisions, 
personal  financial  decisions,  and  business  decisions 
with  tax  consequences  can  all  be  analyzed  in  plan- 
ning a  tax  strategy.  In  a  divorce,  for  example,  the 
arrangement  of  a  settlement  can  result  in  substan- 
tially less  tax  depending  upon  how  the  money  is 
allocated  between  property  settlement,  alimony, 
and  child  support.  A  tax  planning  program  can  be 
used  to  quickly  answer  "what  if?"  questions  during 
the  negotiation  of  a  settlement.  The  ease  of  chang- 
ing inputs  and  having  the  program  recalculate  the 
entire  return  can  be  a  tremendous  time  saver.  Ad- 
ditionally, complex  calculations  such  as  income  av- 
eraging on  Form  G  can  be  done  automatically, 
perhaps  yielding  a  bigger  refund  for  those  who  pre- 
viously would  not  have  attempted  the  calculations 
manually.  A  tax  planning  program  in  the  form  of  a 
spreadsheet  allowrs  the  simultaneous  consideration 
of  multiple  cases  covering  different  facts  and  years. 
The  spreadsheet  can  include  graphical  representa- 
tions showing  the  impact  of  adding  or  subtracting 
income,  deductions,  or  credits,  and  varying  tax 
computations  over  a  several-year  period- 
including  regular  tax,    alternative  minimum  tax, 


add-on  minimum  tax,  income  averaging,  and  the 
consideration  of  limitations  on  the  use  of  credits. 
For  instance,  you  could  consider  the  possibility  of  a 
second  income  versus  staying  at  home  by  having 
your  computer  program  figure  the  after-tax  results 
of  that  extra  income,  which  is  often  discouraging. 
As  another  example,  assume  that  you  own  a  busi- 
ness and  want  to  know  if  you  should  pay  your  wife  a 
salary.  Depending  upon  your  income  level,  this  may 
or  may  not  be  advantageous;  a  tax  planning  program 
could  determine  the  best  option  for  your  income 
bracket. 

A  recurring  question  among  investors  is  "What 
are  the  sources  of  tax-free  income  whose  yields  are 
equal  to  or  greater  than  yields  provided  by  taxable 
investments?"  Should  you  invest  in  tax-free  bonds 
and  other  tax-free  securities  or  place  your  money  in 
a  fully  taxable  bond,  savings  account,  or  treasury 
bill?  (Remember,  however,  that  you  may  wish  to 
consider  other  factors,  such  as  liquidity  of  assets.) 
The  two  formulas  necessary  to  compute  taxable  and 
tax-free  yields  are  given  below.  A  simple  BASIC 
program  could  compute  these  for  a  given  situation 
and  determine  which  alternative  offers  the  better 
investment. 

taxable  yield=tax-free   yield/(l-federal  tax 

bracket) 

tax-free   yield=taxable  yield*(l-federal  tax 

bracket) 

For  instance,  if  you  are  in  the  35%  federal  income 
bracket,  have  invested  in  a  money-market  account 
at  8%,  and  are  offered  the  opportunity  to  invest  in  a 
tax-free  fund  yielding  6.2%,  which  is  the  better 
investment?  Using  the  second  equation  above,  you 
find  that  the  tax-free  fund  would  be  a  better  invest- 
ment at  6.2%  versus  5.2%  after  taxes  for  the 
money-market  account.  A  more  sophisticated  pro- 
gram could  print  a  table  of  yields  given  the  known 
tax-free  or  taxable  yield  starting  value  and  the  in- 
crement, and  the  starting  value  of  the  tax  bracket 
and  the  increment.  Investors  in  some  states  are 
allowed  tax  exemptions  for  qualifying  tax-free  in- 
vestments. In  this  situation,  simply  add  the 
exempted  state  tax  rate  to  the  federal  tax  rate  when 
entering  your  tax  bracket  value. 
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Home  Banking 

You  may  soon  be  able  to  do  your  banking  from 
home  with  a  personal  computer.  Many  banks  are 
conducting  pilot  home-banking  studies  and  are  be- 
ginning to  sell  such  services  to  depositors.  These 
include  the  major  banks  listed  below: 

Central  Trade  Bank  of  Memphis,  Memphis, 

TN 

Citibank,  New  York,  NY 

First  Tennessee  Bank,  Knoxville,  TN 

Huntington  National  Bank,  Columbus,  OH 

Shawmut  Bank  of  Boston,  Boston  ,MA 
With  most  of  these  services,  a  customer  dials  the 
bank's  central  computer  or  uses  one  of  the 
timesharing  networks,  such  as  CompuServe, 
through  his  modem.  After  providing  a  secret 
password,  the  customer  can,  for  instance,  ask  for  a 
list  of  recent  deposits  and  pay  bills  directly  by 
transferring  money  from  his  account  to  those  of  his 
creditors.  Banks  charge  from  $5  to  $15  per  month 
for  this  service. 

Retirement  Planner 

The  formulas  given  below,  translated  into 
BASIC  statements,  will  calculate  how  much  initial 
capital  you  need  to  financially  survive  a  given 
number  of  retirement  years  at  a  given  standard  of 
living.  Inflation  and  return  on  invested  capital  are 
accounted  for.  By  using  a  BASIC  program,  you 
could  quickly  determine  the  effect  of  changes  on 
these  and  other  variables.  You  can  use  this  infor- 
mation in  deciding  whether  or  not  you  can  afford  to 
retire. 

S=(EXP(I*N))*(T  +  (F*(1-EXP(-J*N))/J)-(E* 
(EXP((I-J)*N)-1)/(I-J))) 

T=(E*((EXP(I-J)*N)-1)/(I-J))-((F*(1-EXP 
(-J*N)))/J),  for  I  not  equal  to  J 

T=(N*E)-(F*((1-EXP(-J*N))/J)),  for  I  equal  to  J 

where  N  =  number  of  years  after  retirement  for 
which  financial  survival  is  planned 
S  =  Investment  capital  remaining  after  N 
years 


T  =  Initial  capital 

F  =  Annual  fixed  (after  tax)  income 
E  =  Initial  excess  living  expense 
I  =  Annual  average  inflation  rate 
J  =  Annual  after-tax  return  on  investment 

MONEY-MAKING  APPLICATIONS 

There  are  many  ways  to  use  your  microcom- 
puter to  make  money;  you  might  consider  starting  a 
part-time  or  full-time  business  based  on  one  of  the 
following  ideas. 

Stock  Market 

One  "hobbyist"  is  deriving  his  income  from  his 
stock  prediction  newsletter  that  is  composed  of 
market  predictions  determined  using  "twelve  con- 
fidential indicators"  on  his  home  computer.  In 
similar  fashion,  you  could  experiment  with  math- 
ematical analysis  of  the  stock  market  using  the 
statistical  methods  outlined  earlier  in  this  chapter. 
A  personal  computer  could  also  serve  to  maintain 
stock  portfolios  and  organize  or  correlate  market 
predictions  and  stock  recommendations  to  ease  de- 
cision making.  With  the  proliferation  of  financial 
databases  available  through  the  use  of  a  modem, 
information  on  stock  prices,  market  performance, 
and  so  on  could  be  entered  automatically  to  a  stock 
analysis  program  designed  to  scan  the  entire  mar- 
ket, stocks  of  a  given  industry  group,  or  particular 
stocks.  Financial  data  bases  may  also  be  scanned  to 
provide  historical  data  or  the  latest  news  reports  on 
selected  corporations. 

The  home  computer  is  certainly  useful  in 
mathematical  analysis  and  data  storage  for  other 
forms  of  financial  investment,  including  stock  op- 
tions and  commodities.  An  options  analysis  pro- 
gram was  presented  earlier  in  this  chapter  and 
should  serve  as  a  good  starting  point  for  newcomers 
in  computer  application  to  the  options  market. 
Again,  use  of  financial  databases  accessable  via 
modems  permits  the  automatic  input  of  data  to  your 
analysis  program.  The  commodities  trader  will 
probably  find  the  personal  computer  to  be  a  boon  in 
organizing  and  obtaining  information  in  the  fast 
moving  and  volatile  commodities  market  and  in 
allowing  trading  from  the  home  for  the  first  time. 
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Services 

The  home  computer  owner  is  in  the  position  to 
offer  the  following  services. 

Mailing  lists.  A  mailing  list  of  people  in  your 
area  could  be  used  by  local  firms  with  direct  mail 
campaigns.  The  mailing  list  could  be  compiled  from 
area  phone  books,  association  directories,  and  so 
on,  entered  into  your  computer,  and  stored  perma- 
nently on  floppy  disks.  The  list  may  be  printed  on 
adhesive  labels  and  sold  to  local  businesses.  The 
advantage  of  being  a  local  business  serves  to  elimi- 
nate competition  from  large  mailing  list  brokers  in 
other  cities. 

Resumes.  People  in  all  metropolitan  areas 
can  use  a  resume  preparation  service  to  write, 
type,  and  mail  resumes  to  potential  employers.  A 
computer  word-processing  system  could  automate 
this  business  almost  entirely. 

Typesetting,  indexing,  and  editing.  All 
businesses  and  organizations  can  use  a  printing 
preparation  enterprise  for  typesetting  and  editing 
promotional  material.  Small  computers  interfaced 
to  IBM  composers,  executive  typewriters,  DI- 
ABLO proportional  printers,  laser  printers,  or  con- 
ventional typesetting  equipment  can  produce  ex- 
cellent justified  and  camera-ready  material  for 
printing.  The  cost  savings  of  using  a  computer  will 
allow  the  entrepreneur  to  offer  lower  prices  for 
such  services  and  ensure  greater  accuracy.  Addi- 
tionally, an  indexing  service  using  a  simple  com- 
puter program  to  create  book  or  magazine  indexes 
could  provide  a  valuable  service  to  small  publishing 
firms. 

Home  swap  and  rental  locator  services. 
The  practice  of  swapping  one's  home  with  other 
people  during  vacation  time  is  becoming  popular.  A 
service  that  used  a  computer  to  categorize  homes 
available  and  homes  wanted  could  profit  by  pub- 
lishing a  newsletter  of  listings. 

A  rental  locator  service  categorizes  homes  and 
apartments  for  rent  from  classified  newspaper  ads 
or  other  sources.  In  metropolitan  areas,  where 
finding  an  ideal  home  to  rent  is  a  difficult  task,  a 
service  to  match  people  with  the  right  living  condi- 
tions at  the  right  price  would  be  useful.  In  a  similar 
manner,   a  service  company  could  match  people 


with  cars  for  sale  by  the  owners. 

One  entrepreneur  has  developed  a  com- 
puterized bartering  service  for  matching  needs  and 
services  of  those  in  high  income  tax  brackets  for  the 
purpose  of  mutual  tax  write-offs.  He  charges  a  small 
fee  for  successful  bartering  arrangements. 

Finder's  fees.  Afindersfee  is  a  sum  of  money 
paid  to  someone  who  finds  something  wanted  by 
another  person  who  is  willing  to  offer  an  award  for 
it,  be  it  business  opportunities,  products,  or  rare 
items.  Usually,  finders  fees  are  expressed  as  a 
percentage  of  the  amount  of  money  involved  in 
purchasing  the  item  to  be  found.  A  few  organiza- 
tions publish  newsletters  listing  finder's  fee  op- 
portunities. A  hobbyist  could  computerize  hun- 
dreds of  listings  for  future  reference  and  could  cor- 
relate the  need  of  buyers  with  the  offerings  of 
sellers. 

Telephone  answering  message  service 
and  newspaper  clippings  service.  Telephone 
answering  services  of  sufficient  size  can  use  a  small 
computer  to  increase  efficiency  and  lower  costs.  A 
newspaper  clipping  service,  which  clips  articles  of 
interest  to  paying  clients,  could  use  a  computer  to 
keep  track  of  the  varied  categories  to  search  for. 

Computer  dating  service.  Popular  a  few 
years  ago,  computer  dating  services  could  make  a 
return  appearance,  especially  in  metropolitan 
areas. 

Sports  predictions  and  gambling.  An  en- 
terprising hobbyist  uses  his  computer  to  predict 
college  football  scores.  The  information  produced 
is  sold  as  "CLYDE  the  computer"  sports  forecasts 
to  television  stations  for  use  on  local  news  broad- 
casts. Other  entrepreneurs  have  used  computer 
predictions  of  sporting  events  to  publish  flyers  that 
are  sold  at  dog  and  horse  races.  It  would  be  silly  to 
deny  that  personal  computers  have  also  found  wide- 
spread application  in  illegal  gambling  circles  for  the 
analysis  of  point  spreads  and  historical  perfor- 
mance, and  for  bookkeeping! 

Employment  agency.  The  computer  could 
be  useful  to  an  employment  agency  in  matching  the 
right  people  with  the  right  jobs.  The  use  of  the 
computer  may  also  serve  to  increase  business  in 
itself. 
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Small  business  systems  and  software. 

Many  hobbyists  have  turned  personal  computers 
into  a  profitable  sideline  business  by  selling 
packaged  computer  systems  with  accounting,  word 
processing,  and  spreadsheet  software  to  small 
business  and  offering  technical  support  and  train- 
ing. You  could  also  create  personalized  programs 
including  databases  and  mailing  lists  on  a  freelance 
basis  for  firms  with  small  computers. 

Collection  service.  A  word-processing 
computer  system  could  automatically  output  per- 
sonalized collection  letters,  which  theoretically 
generate  greater  response.  Thus,  a  low-cost  col- 
lection service  charging  a  flat  rate  or  a  percentage 
of  the  money  collected  would  be  an  excellent  side- 
line business  for  the  computer  hobbyist. 

Word  Processing.  A  word-processing  ser- 
vice can  be  employed  by  businesses  to  prepare 
typewritten  personalized  sales  letters.  Such  a  busi- 
ness would  be  almost  totally  automated  by  a  small 
computer. 

Bowling  league  bookkeeping.  A  few  hob- 
byists have  sideline  businesses  that  calculate 
bowling  league  scores  and  handicaps  for  ten  to 
thirty  cents  per  player  per  week.  This  cost  is  usu- 
ally less  than  the  costs  for  hiring  a  person  to  do  the 
bookkeeping. 

Supermarket  comparison  service.  A  hob- 
byist turned  businessman  uses  his  personal  com- 
puter to  collect  and  compare  price  data  for  popular 
foods  at  local  supermarkets  and  sells  a  listing  of  the 
most  economical  stores  to  shoppers. 

Personalized  books.  Children's  books  con- 
taining a  child's  name,  address,  and  other  per- 
sonalized information  can  be  printed  by  a  small 
computer  economically.  Studies  show  that  children 
prefer  reading  personalized  books  over  any  other 
type  of  book,  and  there  is  a  considerable  demand  for 
them.  An  enterprising  hobbyist  could  develop  a 
large-scale  business  along  these  lines.  Perhaps  a 
humorous  personalized  book  could  be  sold  for 
adults  as  well. 

Educational  programs.  You  could  form  a 
distributorship  to  bring  educational  computer 
materials  to  schools,  bookstores,  and  other  institu- 
tions. The  market  for  educational  computer  pro- 


grams is  also  growing.  Popular  tutorials  could  be 
developed  concerning  electronics,  higher  math- 
ematics, business  and  investments,  computers,  and 
an  unlimited  variety  of  other  topics. 

Real  Estate 

Possible  applications  for  personal  computers 
in  real  estate  include  the  following: 

Residential  purchase  analysis.  A  useful 
program  could  calculate  the  total  monthly  payment, 
income  tax  deductions,  and  equity  build-up  result- 
ing from  the  purchase  of  a  home.  An  own  versus 
rent  analysis  could  also  be  useful. 

General  real  estate  investment  analysis. 
By  considering  such  factors  as  inflation  and  interest 
rates,  mortgages,  cash  flow  in  percent  growth  re- 
turn, taxable  income  (tax  shelter),  and  financial 
feasibility  can  be  calculated.  Income  property  re- 
ports and  closing  statements  may  also  be  gener- 
ated. 

Rental  property  management.  A  program 
designed  for  management  of  rental  properties  could 
store  the  following  types  of  information  for  each 
property  or  client:  receipts,  disbursements,  gross 
income,  calculated  profit  and  loss,  calculated  return 
on  investment,  and  calculated  net  income. 

Appraisal  tabulator  program.  A  program 
designed  for  the  appraiser  could  organize  and  tabu- 
late variables  and  could  determine  an  appraisal. 

Real  estate  evaluation.  The  program  in 
Listing  2-11  is  designed  for  use  by  a  potential  in- 
vestor in  evaluating  a  piece  of  real  estate,  prefera- 
bly an  apartment  building.  The  program  estimates 
the  total  monthly  income,  annual  rate  of  return,  and 
tax  deductions  based  on  such  input  data  as  cost, 
down  payment  on  mortgage,  estimated  overhead 
costs,  and  income. 

First,  here's  a  sample  run  that  will  show  you 
what  information  the  program  will  request  and  what 
kind  of  results  it  will  produce. 

ENTERTHE  PURCHASE  PRICE OFTHE  REAL 

ESTATE?  75000 
ENTER  THE   MORTGAGE   INTEREST  (%)  ? 

9.75 
ENTER  THE  MORTGAGE  DOWN  PAYMENT 
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AS  A  %  OF  PURCHASE  COST?  10  MONTHLY  EXPENSES  $525.00 

ENTER  THE   NUMBER  OF  YEARS  IN  THE  MONTHLY  TAXES  $108.33 

LOAN  TERM?  25  MONTHLY  MORTGAGE  $601 .52 

ENTER  THE  CLOSING  COST  (%  of  PUR-  MONTHLY  INCOME  $1125.00 
CHASE  PRICE)?  2 

ENTER     MISCELLANEOUS     INITIAL     EX-  MONTHLY  CASH  FLOW  $109.85- 

PENSES  AS  ONE  SUM?  100 
ENTER   THE    ESTIMATED    INCOME    PER 

MONTH  FROM  THE  PROPERTY?  1125  ' 

ENTER  THE  REAL  ESTATE  TAX  FOR  ONE 

YEAR?  1300  EXPENSES  (YR.  #1)  $7650.00 

ENTER  THE  ESTIMATED  OVERHEAD  COSTS  DEPRECIATION  (YR.  #1)  $6000.00 

(MAINT.,  UTILITIES,  INSUR.,  ETC.)?  525  DEDUCTIBLE  INTEREST  $6581 .25 

FOR  TAX  DEDUCTION  PURPOSES,  ENTER  REAL  ESTATE  TAX  (YEARLY)  $1300.00 

THE  EST.  PROPERTY  VALUE?  15000 

ENTER  YOUR  TAX  BRACKET  AS  A%  OF  TOTAL:  (YR.  #)  $21531.30 

YOUR  INCOME?  40  TOTAL  INCOME  (YR.  #1)  $13500.00 

IS  THE  BUILDING  ON  THE  PROPERTY  NEW  NET  DEDUCTION  (YR.  #1)  )8031.25 

OR  USED  ("N"  OR  "U")?  N  TAX  ADVANTAGE  (YR.  #1)  $3212.50 

TAX  AND  CASH  FLOW  ANALYSIS  RETURN  ON  INVESTMENT  18% 


Listing  2-11:  The  Real  Estate  Evaluation  Program 

10  PRINTCHR$(147)TAB(40)"REAL  ESTATE  PURCHASE  EVALUATION   PROGRAM" 

20  PRINT"THIS  PROGRAM  DTERMINES  TAX  ADVANTAGE  " 

25  PRINT"AND  CASH  FLOW  OF  A  PROSPECTIVE" 

30  PRINT"PURCHASE.": PRINT 

40  PRINT"ENTER  THE  PURCHASE  PRICE  OF" 

45  INPUT"THE  REAL  ESTATE"; A 

50  INPUT"ENTER  MORTGAGE  INTEREST  (%)";B 

55  PRINT"ENTER  MORTGAGE  DOWN  PAYMENT  AS" 

60  INPUT  "A  PERCENT  OF  PURCHASE  C0ST";C 

65  B=B/100:C=C/100 

70  INPUT  "ENTER  NUMBER  OF  YEARS  IN  LOAN  TERM";D 

80  PRINT"ENTER  THE  CLOSING  COST  (PERCENT  OF" 

85  INPUT"PURCHASE  PRICE)" ;E 

90  E=E/100 

100  PRINT"ENTER  MISCELLANEOUS  INITIAL" 

105  INPUT"EXPENSES  AS  ONE  SUM";G 

110  PRINT"ENTER  THE  ESTIMATED  INCOME  PER" 

115  INPUT"MONTH  FROM  THE  PROPERTY"; J 

120  INPUT  "ENTER  THE  REAL  ESTATE  TAX  FOR  ONE  YEAR";K 

130  PRINT"ENTER  THE  ESTIMATED  OVERHEAD  COSTS" 

131  INPUT"(MAINTAIN., UTILITIES, INSURANCE, ETC.  )";L 

132  PRINT"F0R  TAX  DEDUCTION  PURPOSES,  ENTER  THE" 

133  INPUT"ESTIMATED  PROPERTY  VALUE" ;M 

134  PRINT"ENTER  YOUR  TAX  BRACKET  AS  A  %  OF  YOUR" 

135  INPUT"INC0ME";R7 

138  PRINT"IS  THE  BUILDING  ON  THE  PROPERTY  NEW" 

139  INPUT"0R  USED  (N/U)";B$ 

140  X=B/12+1 

150  Y=X*(12*D)*(X-1)/(X*(12*D)-1)*(A-C*A) 
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160  N=L+K/12+Y 

170  P=(A-C*A)*B 

180  IF  B$="N"  THEN  Q=2:G0T0  190 

185  Q=l .25 

190  R=L+E*(A-C*A)/12 

200  R1=(A-M)/20*Q 

210  R2=K+R1+P+12*R-12*J 

220  R3=R7/100*R2 

230  R4=G+E*A+C*A-12*(J-N) 

240  R5=INT(100-((J-N)-12+R3)/R4) 

250  PRINT  CHR$(147) 

260  PRINT"TAX  AND  CASH  FLOW  ANALYSIS: 

270  PRINT"MONTHLY  EXPENSES 

280  FT=L:GOSUB  1000 

290  PRINTMMONTHLY  TAXES 

300  FT=K/12:G0SUB  1000 

310  PRINTMMONTHLY  MORTGAGE 

320  FT=Y:GOSUB  1000 

330  PRINTMMONTHLY  INCOME 

340  FT=J:GOSUB  1000 

350  PRINTMMONTHLY  CASH  FLOW 

360  FT=J-N:GOSUB  1000 

370  PRINT:PRINT 

380  PRINT"TAX  HEDGE:" 

390  PRINTMEXPENSES  (#1) 

400  FT=12*R:G0SUB  1000 

410  PRINT  "DEPRECIATION  (YR#1)      " 

420  FT=R1:G0SUB  1000 

430  PRINT"DEDUCTABLE  INTEREST  (YR#1)" 

440  FT=P:GOSUB  1000 

450  PRINT"REAL  ESTATE  TAX  (YEARLY)   " 

460  FT=K:GOSUB  1000 

470  PRINT:PRINT"T0TAL:(YR.#1) 

480  FT=K+P+R1+R*12:G0SUB  1000 

490  PRINT"TOTAL  INCOME  (YR  #1)      " 

500  FT=J*12:G0SUB  1000 

510  PRINT"NET  DEDUCTION  (YR  #1)     " 

520  FT=R2:G0SUB  1000 

530  PRINT"TAX  ADVANTAGE  (YR  #1) 

540  FT=R3:G0SUB  1000 

550  PRINT :PRINT"RETURN  ON  INVESTMENT" 

560  PRINT  R5;"%" 

570  END 

1000  FT$=STR$(FT) 

1005  PRINT"$"; 

1010  FOR  QQ=1  TO  LEN(FT$) 

1020  PRINT  MID$(FT$,QQ,1); 

1030  IF  MID$(FT$,QQ,1)="."  THEN  GOTO  1050 

1040  NEXT 

1045  PRINT"."; -.GOTO  1080 

1050  FOR  KK=(QQ+1)  TO  (QQ+2) 

1060  PRINT  MID$(FT$,KK,1); 

1070  NEXT 

1080  LL=LEN(FT$)-QQ 

1085  IF  LL>1  THEN  PRINT"" 

1090  IF  LL<1  THEN  PRINT  "00" 

1100  IF  LL=1  THEN  PRINT  "0" 

1110  RETURN 
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Curve  fit.  A  program  to  fit  such  data  as  land     rate,  i,  the  program  will  compute  the  net  present 
prices  or  construction  cost  per  square  foot  to  a     value  at  period  k,  NPV  for  each  cash  flow.  Anega- 


k 


curve  may  be  used  to  make  more  accurate  fore-     tive  value  for  NPV  indicates  that  the  enterprise  has 


casts,  bids,  and  estimates.  not  been  profitable.  A  positive  value  for  NPV  indi 


Internal  rate  of  return  and  cash  flows,     cates  that  the  enterprise  has  been  profitable  to  the 
One  purpose  of  an  internal  rate  of  return  and  cash    extent  that  a  rate  of  return,  i,  on  the  original  in- 
flow programs  such  as  the  one  in  Listing  2-12  would    vestment  has  been  exceeded, 
be  to  calculate  the  net  present  value  of  a  series  of 
cash  flows.  In  general,  an  investment,  V  ,  is  made 

in  some  enterprise  that  is  expected  to  bring  NPV    =  —V    + 

periodic  cash  flows  Cx,  C  .  .  .  C  .  Given  a  discount 


k 
=  1 

C. 

J 

(1  + 

i> 

Listing  2-12:  The  Internal  Rate  of  Return  Program 

150  PRINT  CHR$(147)TAB(42)"H0ME  PURCHASE  INTERNAL  RATE  OF  RETURN" 

: PRINT 

160  DIM  Y(10) 

170  PRINT"ENTER  CURRENT  COST  OF  HOUSE" 

175  INPUT  HS 

180  INPUT  "ENTER  %  RISE";PH 

190  PH=PH/100 

250  PRINT"ENTER  MORTGAGE  INTEREST  RATE" 

260  INPUT  MR 

270  MR=MR/100 

280  PRINT"ENTER  MORTGAGE  DURATION  IN  YEARS" 

290  INPUT  NY 

300  PRINT  "ENTER  DOWN  PAYMENT" 

310  INPUT  DP 

320  PRINT  "ENTER  RATE  THAT  COULD  BE  EARNED  ON  DOWN" 

325  INPUT  "PAYMENT" ;IR 

330  IR=IR/100 

340  PRINT"ENTER  CURRENT  INCOME  TAX  RATE" 

360  INPUT  TR 

370  TR=TR/100 

380  INPUT  "ENTER  %  RISE";PT 

400  PT=PT/100 

410  PRINT"ENTER  TRANSACTION  COSTS  TO  BUYER  IN  %" 

415  INPUT  BC 

420  BC=BC/100 

430  PRINT  "ENTER  TRANSACTION  COSTS  TO  SELLER  IN  %" 

450  INPUT  SC 

460  SC=SC/100 

470  PRINT"ENTER  REAL  ESTATE  TAXES  TODAY" 

480  INPUT  RE 

500  INPUT  "ENTER  %  RISE"; PR 

510  PR=PR/100 

520  PRINT  "ENTER  UTILITY  AND  MAINTENANCE  COSTS" 

530  INPUT  HM 

550  INPUT  "ENTER  %  RISE";PM 

560  PM=PM/100 

570  PRINT"ENTER  APARTMENT  RENT  TODAY" 

580  INPUT  AR 

590  INPUT  "ENTER  %  RISE"; PA 

600  PA=PA/100 

630  PRINT  "ENTER  APARTMENT  UTILITIES" 

640  INPUT  AU 
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650  INPUT"ENTER  %  RISE";PU 

660  PU=PU/100 

670  Pl=(HS+DP)/( ( l-( 1+MR)*-NY)/MR) 

680  PRINT"YRS    INTERNAL  RATE  OF  RETURN" 

720  FOR  1=1  TO  10 

730  Y(0)=-DP-BC*HS 

740  B1=HS-DP 

750  FOR  J=l  TO  I 

760  Y(J)=-(DP*IR) 

770  Y(J)=Y(J)-P1 

780  T1=TR+PT*(J-1) 

790  Y(J)=Y(J)-RE*(1+PR)*(J-1) 

800  Y(J)=Y(J)-HM*(1+PM)4(J-1) 

810  Y(J)=Y(J)+AR*(1+PA)*(J-1) 

820  Y(J)=Y(J)+AU*(1+PU)*(J-1) 

830  Y(J)=Y(J)+((RE*(1+PR)4(J-1))+(B1*MR))*(TR+PT*(J-1)) 

840  B1=B1-(P1-(B1*MR)) 

850  NEXT 

860  Y(I)=Y(I)+HS*(1+PH)*I-B1-HS*(1+PH)*I*SC 

900  HG=1:LW=-1 

920  MN=(HG+LW)/2 

930  PV=0 

940  FOR  J=0  TO  I 

950  PV=PV+Y(J)/(1+MN)*J 

960  NEXT 

970  IF  (.05>PV)  AND  (-.05<PV)  THEN  1000 

980  IF  PV>0  THEN  LW=MN 

985  IF  PV<=0  THEN  HG=MN 

990  GOTO  920 

1000  REM 

1010  PRINT  I,MN*100 

1020  NEXT 


BUSINESS  DECISION  MAKING 

The  following  computer  applications  can  help 
you  make  the  decisions  that  will  optimize  the  way 
you  run  your  business. 

Spreadsheets 

Most  people  have  seen  or  worked  with  the 
traditional  accounting  ledger  spreadsheet  or  work- 
sheet. Typically  there  are  descriptions  along  the 
left  edge,  month  designations  across  the  top  of  each 
column,  and  room  for  a  totals  column  on  the  right. 
For  budget  preparation,  each  line  could  represent  a 
budget  category  and  have  budgeted  monthly 
amounts  across  the  page.  Each  line  and  each 
month's  column  are  totaled.  A  change  to  a  single 
number  involves  replacing  a  figure  with  a  new  one, 
and  adjusting  the  affected  column  and  row.  This  is  a 
tedious  procedure  prone  to  error.  Hence,  you  can 


understand  the  tremendous  benefits  of  a  totally 
electronic  spreadsheet. 

A  spreadsheet  program  is  a  super  calculator 
that  provides  you  with  a  giant  electronic  grid  that 
functions  analogously  to  the  traditional  spread- 
sheet, as  described  above.  When  you  change  the 
values  of  numbers  in  the  grid,  the  program  au- 
tomatically calculates  what  effect,  if  any,  there  is  on 
all  the  other  numbers.  The  spreadsheet  can  provide 
answers  within  seconds  to  all  sorts  of  financial 
"what  ifs. "  For  example,  to  qualify  for  the  mortgage 
you  want,  how  much  income  must  you  have?  Or  how 
would  your  portfolio  value  change  with  a  half-point 
advance  in  a  stock? 

The  electronic  spreadsheet  may  be  as  large  as 
2,048  rows  long  by  256  columns  high,  depending  on 
available  memory.  Formulas,  equations,  and  al- 
gorithms may  be  input  to  provide  comparisons, 
ratios,  totals,  and  other  information. 
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Who  uses  a  spreadsheet  program?  Anyone 
who  works  with  numbers  might  find  a  use  for  such  a 
program.  Obviously  accounting  is  a  primary  area  of 
application,  but  scientists,  engineers,  managers, 
executives,  and  members  of  almost  any  discipline 
use  spreadsheets.  How  useful  a  spreadsheet  is  in  a 
particular  situation  depends  on  the  degree  to  which 
it  increases  productivity.  Frequently,  a  spread- 
sheet user  will  get  important  answers  that  previ- 
ously were  not  cost  effective  to  obtain.  Anyone  who 
needs  more  accurate  and  speedier  calculations  is  a 
potential  spreadsheet  user. 

Spreadsheet  programs  are  being  used  in  an 
endless  variety  of  applications.  Some  use  it  for 
solving  simple  or  complex  equations,  others  for 
normal  calculator  functions,  and  others  as  a  com- 
plete decision  support  tool.  Specific  uses  include 
financial  modeling,  budgeting,  doing  cash  flow 
analysis,  planning,  making  projections,  making 
business  plans,  creating  sales  reports,  doing 
what-if  analysis,  pricing,  making  cost  estimates, 
tax  planning,  improving  time  management,  per- 
forming chemical  formulation,  doing  regression 
analysis,  and  analyzing  structural  design.  Anything 
that  can  be  done  using  a  calculator  can  be  done  more 
easily  and  more  extensively  through  the  use  of  a 
spreadsheet  program. 

Other  Decision  Making  Computer  Applications 

In  addition  to  making  the  electronic  spread- 
sheet available  as  a  decision-making  tool,  the  mi- 
crocomputer enables  you  to  use  programs  to  guide 
you  in  making  decisions  in  the  following  areas. 

Long  and  short  term  financing  require- 
ments. A  commercially  available  long  term 
financing  requirement  calculation  program  could 
compute  the  cost  of  capital  for  various  forms  of 
funding  (for  example,  common  stocks,  preferred 
stocks,  and  bonds,),  select  the  cheapest  form,  and 
determine  the  amount  needed  to  support  operating 
plans.  A  short  term  financing  requirement  calcula- 
tion program  could  compute  the  amount  and  timing 
of  short  term  financing  based  on  sales  forecasts, 
inventory  purchases,  and  collection  and  payment 
policies. 

Breakeven  analysis.  Programs  can  be  used 


to  compute  breakeven  points  for  projects  or 
products  based  on  fixed  and  variable  costs  and  sel- 
ling prices;  learning  curves  may  also  be  applied. 
To  breakeven  the  following  must  hold  true 

P-K  =  FC  +  (VOQ) 
where     P  =  sales  price  of  each  unit 
K  =  quantity  of  units  sold 
FC  =  fixed  costs  over  the  period  in  ques- 
tion 
VC  =  variable  costs  per  unit  produced 
Q  =  no.  of  units  produced 

Inventory  Control.  The  generalized  inven- 
tory model  known  as  the  economic  order  quantity 
(EOQ)  is  an  important  part  of  the  management  of 
inventory.  The  formulae  below  may  be  used  to 
compute  the  EOQ,  the  minimum  inventory  costs  for 
a  specified  time  period,  and  the  number  of  times  to 
order  replacement  stock  during  a  period. 


EOQ  = 


V2KL 
M 


+  S 


C      =    V  2KLM 

min 

L 


N  = 


EOQ 


where     EOQ  =  the  economic  order  quantity  in 
units. 
C      =   the  minimum  inventory  costs  for 

nun  J 

the  time  period 

N  =  the  number  of  times  replace- 
ment stock  should  be  ordered 
during  the  period 

K  =  the  cost  of  placing  and  receiving 
each  order 

L  =  the  total  number  of  units  used 
during  the  period 

M  =  the  cost  of  carrying  one  unit  in 
inventory  for  the  time  period 

S  =  the  "safety"  quantity  of  stock  to 
be  held  in  inventory,  to 
minimize  the  risks  or  losses  in- 
volved in  running  out  of  a  crucial 
part  or  item. 
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Reorder  timing.  Programs  can  be  used  to 
compute  the  reorder  point  based  on  inventory  car- 
rying costs,  stockout  costs,  and  demand  variation. 

Facility  scheduling.  Programs  can  be  used 
to  compute  job  shop  performance  (average  turn- 
around time,  percent  late,  and  so  on)  based  on  a 
variety  of  scheduling  rules  (for  example,  first  in- 
first  out,  or  most  over-due  items  first)  and  on  job 
processing  times. 

Demand  forecasting.  Programs  can  be  used 
to  compute  a  forecast  of  future  demand  by  expo- 
nentially smoothing  past  demand. 

Market  and  media  research.  Programs  can 
perform  many  aspects  of  this  kind  of  research,  in- 
cluding questionnaire  analysis. 

Purchasing.  Program  can  analyze  vendors 
(for  example,  order-filling  speed,  and  previous 
complaints)  to  select  the  best  over-all  vendors. 

Bid  preparation  and  job  pricing.  The 
salesman  or  contractor  would  find  a  bid  preparation 
program  useful  in  calculating  variable  sales  prices, 
keeping  running  totals,  and  figuring  mark-ups  or 
mark-downs.  Preparation  on  the  computer  typically 
requires  one  fifth  to  one  tenth  the  time  required  by 
manual  methods  and  frees  time  for  profit-making. 

GENERAL  BUSINESS  CALCULATIONS 
AND  BUSINESS  ACCOUNTING  SYSTEMS 

The  computer  can  be  used  to  keep  track  of 
accounts  receivable,  to  prepare  aged  trial  balances, 
monthly  statements,  follow-up  sales  letters,  and 
collection  letters,  and  to  provide  on-line  account 
status  inquiry  handling. 

Writing  a  Small  Business  Accounting  System 

The  following  is  an  outline  of  a  small  business 
accounting  system  designed  for  use  on  a  small  com- 
puter with  a  printer  and  floppy  disks.  The  program 
is  intended  for  use  by  an  individual  proprietorship 
or  a  small  partnership.  For  such  a  business,  tax 
returns  are  prepared  (either  form  1040  schedule  C 
or  form  1065),  bookkeeping  is  done,  and  balance 
sheets  are  produced  by  the  system  described  for 
management  and  banking  purposes.  Advantages  of 
computerizing  this  information  include  savings  in 


time  and  improved  error  detection. 

The  most  desirable  bookkeeping  system  is 
called  the  double  entry  system;  each  transaction  is 
entered  into  two  different  accounts,  and  thus,  the 
system  is  self-checking.  With  the  double  entry 
system,  each  transaction  is  first  recorded  as  money 
coming  from  some  account  and  then  recorded  as 
money  going  to  some  account.  Debits,  abbreviated 
as  DR  for  computer  use,  represent  an  addition  to 
your  account  or  to  an  expense;  credits,  abbreviated 
CR  represent  a  subtraction  from  an  account  or  from 
an  expense.  To  determine  whether  or  not  the  book- 
keeping has  been  done  correctly,  find  out  whether 
or  not  the  debits  always  equal  the  credits.  For 
example,  if  you  paid  a  bill  for  $50  and  received  a 
check  for  $100  for  services  performed,  the  book- 
keeping entries  would  be  as  follows: 

a.  Debit  (subtract  from  what  you  owe)  ac- 
counts payable  for  $50. 

b.  Credit  (subtract  from  what  you  have)  cash 
on  hand  for  $50. 

c.  Debit  (add  to  what  you  have)  cash  on  hand 
for  $100. 

d.  Credit  (add  to  revenue)  income  or  revenue 
for  $100. 

The  continual  up-keep  of  the  status  of  each  account 
for  a  business  is  the  purpose  of  the  bookkeeping 
program.  An  example  of  the  account  files  along  with 
a  suggested  computer  abbreviation  for  each  is  listed 
here: 

EXPENSES  (debit  to  add,  credit  to  subtract) 

Return  and  allowances      RTN   (goods   returned 

for  refund) 

Depreciation  DEP   (for  equipment 

owned) 

Business  taxes  TAX 

Rent  RNT 

Repairs  RPR 

Bad  debts  BDB  (for  the  charge-off 

accounting 
method) 

Professional  fees  PRF 

Amortization  AMT  (charge     partial 

costs  of  organiza- 
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Fuel 

Telephone 
Electricity 
Salaries  and  wages 


Interest 

Labor/production  costs 
Purchases 
Insurance 

Pension/profit  sharing 
Depletion 


Materials/supplies 
Cost  of  goods  sold 


tion  expense,  re- 
search/develop- 
ment, etc.) 

FUL 

PON 

PWR 

SAL  (does  not  include 
wages  included  in 
cost  of  goods  sold) 

INT  (interest  paid,  on- 
ly) 

LAB 

PUR 

INS 

PEN 

DPL  (used  for  such  as- 
sets as  mines/oil 
fields) 

MAT 

CGS  (includes:  pur- 
chases, materials/ 
supplies,  labor/ 
production  costs, 
other  costs) 


ASSETS  (debit  to  add,  credit  to  subtract) 

Cash  CSH  (usually  checking  acct. 

balances) 

Receivable  RBL  (amounts  owed  by  cus- 

tomers on  accounts) 

Inventory  INV 

Prepaid  expenses    PPD 

Supplies  SUP 

Equipment  EQT 

Investments  IVS 

Miscellaneous  ETC 

LIABILITIES  AND  EQUITY 

Payables  PBL  (amounts  owed  on  an 

account) 
Notes  NOT  (borrowed  money) 

Long  term  payables     LTP 
Proprietor  PRP  (amount  invested  in 


Drawing 


business  and  net  in- 
come) 
DRW  (amount  from  which 
owner      may      use 
money  for  personal 
expenses) 


REVENUES  (credit  to  add,  debit  to  subtract) 

Gross  receipts  RCP 

Other  revenue  REV 

The  IRS  requires  reports  in  the  following  areas: 
depreciation,  business  taxes,  repairs,  and  amorti- 
zation. 

The  various  reports  that  may  be  generated  by 
the  system  include  the  balance  sheet;  a  sample 
balance  sheet  is  listed  below: 


ASSE 

TS 

LIABILITIES 

Equipment 

5000. 

Notes                     2000 

Receivables 

500. 

Payables                3500 

Cash 

3000. 

Total                      5500 

Total 

8500. 

EQUITY 

Proprietor  3000 

Total  (Liabilities  +  Equity)  = 

►  8500. 


Assets  represent  what  the  businessman  has,  lia- 
bilities represent  the  amounts  owed,  and  equities 
are  amounts  contributed  or  earned  by  the  owners. 
Another  report  that  is  a  necessary  part  of  a 
small  business  accounting  system  is  termed  the 
income  statement.  It  displays  the  income  and  ex- 
pense of  the  business  during  a  certain  length  of  time 
(a  period) ;  it  may  be  used  to  fill  out  tax  forms  1040C 
or  1065.  To  generate  this  report,  total  income  is 
computed  and  total  expenses  are  subtracted  from 
this  figure.  Income  for  accounts  may  be  stated  on  an 
accrual  basis,  which  is  to  say  that  future  expenses 
or  revenues  are  included  if  the  exact  amount  is 
known  and  certain  (for  example,  the  amounts  cus- 
tomers owe  may  be  stated  on  an  accrual  basis). 
Business  owners  may  prefer  to  prepare  a  tax  return 
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report  on  a  cash  basis  in  which  the  only  revenue 
considered  is  to  be  cash  in  and  the  only  expenses 
considered  are  cash  out.  To  prepare  such  a  report, 
you  must  eliminate  payables,  receivables,  prepaid 
expenses,  and  supplies  not  yet  part  of  the  cost  of 
goods  sold;  the  revenue  and  expense  accounts 
should  be  adjusted  to  reflect  this  change. 

Another  necessary  report  is  the  ledger  of  which 
may  be  two  types:  summary  and  detailed.  The  de- 
tailed ledger  is  a  complete  listing  of  each  account 
transaction  (name,  amount,  and  so  on)  that  has  been 
input  within  a  certain  period  of  time  (usually  done 
on  a  weekly  or  monthly  basis).  The  balances  up  to 
the  time  of  the  beginning  of  the  report  have  been 
stored  from  prior  ledgers  and  are  read  into  the 
computer.  Thus,  a  report  listing  each  transaction 
and  the  remaining  balance  in  each  account  is  gener- 
ated. The  summary  ledger  report  only  lists  the 
remaining  balances  after  adding  and  subtracting  all 
transactions  for  a  given  period  of  time. 

The  balance  sheet  is  the  final  report  necessary 
on  a  small  accounting  system.  The  sum  of  the 
liabilities  is  subtracted  from  the  sum  of  the  assets  to 
determine  the  balance  or  net  profit  for  the  business 
owner.  This  balance  is  credited  to  the  pro- 
prietor (PRP)  account,  and  thus,  the  assets  plus  the 
net  income  will  balance  (equal)  with  the  liabilities. 

Additional  functions  of  the  accounting  system 
could  include  forecasting  income  using  trend-line 
analysis  of  previous  balance  sheets,  forecasting 
other  accounts  using  previous  records,  preparing 
amortization  schedules,  determining  depreciation 
amounts  and  budgeting  cash  based  on  forecasted 
cash  on  hand  and  cash  payable. 

The  accounting  system  flowchart  is  shown  in 
Fig.  2-2. 

ADDITIONAL  APPLICATIONS  FOR  THE 

SMALL  BUSINESS  PERSON  OR  THE  PROFESSIONAL 

The  small  business  person  or  professional 
could  use  his  or  her  microcomputer  for  the  follow- 
ing additional  purposes. 

Order  processing.  The  computer  could  be 
used  for  order  editing,  freight  cost  computation, 
credit  checks,  stock  availability  checks,  and  order 
status  checks.  A  billing/invoicing  calculation  pro- 


gram could  provide  the  following  information:  net 
total,  total  tax,  total  tax  plus  freight,  total  profit, 
percent  of  net  profit,  total  value  of  back-ordered 
items,  total  discount  amount,  total  gross  amount, 
and  total  cost  amount. 

Sales.  The  computer  could  prepare  a  break- 
down of  sales  volume  and  profitability  by  product, 
customer,  or  salesman.  Sales  order  processing 
software  could  print  packing  slips,  deduct  sold  mer- 
chandise from  inventory,  verify  orders,  process 
returned  goods,  accumulate  back  orders,  enter  cash 
receipts,  print  invoices,  print  sales  and  credit  jour- 
nals, and  maintain  a  customer  master  file. 

General  accounting.  General  accounting 
functions  include  cost  record  keeping,  budgeting, 
daily  exception  recordkeeping,  and  the  issuing  of 
profit  and  loss  statements. 

Mailing  list.  One  of  the  prime  assets  of  a 
small  business  is  its  mailing  list,  representing  cus- 
tomers who  are  likely  to  be  repeat  purchasers.  The 
personal  computer  simplifies  mailing  list  mainte- 
nance and  is  capable  of  sorting  names  according  to  a 
variety  of  characteristics,  depending  upon  how 
much  information  is  stored  by  the  program  in  addi- 
tion to  names  and  addresses.  Consider  the  follow- 
ing promotional  or  money-saving  activities  that  can 
easily  be  accomplished  through  the  use  of  a  full- 
featured  mailing  list  program: 

•  Sort  list  by  zip  for  bulk  mail  savings. 

•  Sort  list  alphabetically  and  printout  as  a  customer 
reference. 

•  Mail  pieces  to  residents  of  a  certain  town  or  zip 
for  a  special  local  promotion. 

•  Mailings  to  customers  having  an  upcoming  birth- 
day. 

•  Mailings  to  all  women  announcing  a  special  sale 
on  dresses. 

•  Mailings  to  only  the  most  active  customers  for  a 
special  "favored  customer  promotion." 

The  ability  of  a  mailing  list  program  to  sort 
customers  by  these  and  other  criteria  requires  that 
special  codes  be  input  along  with  names  and  ad- 
dresses. The  coding  used  and  its  extent  are  at  the 
user's  discretion. 

Customer  file  management.  By  function- 
ing in  a  manner  similar  to  the  way  a  mailing  list 
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BALANCE 

SHEET 

(PROJECTED) 


Fig.  2-2.  A  flowchart  for  an  accounting  system  program. 
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program  functions,  a  customer  file  management 
program  could  keep  track  of  customers  in  a  way  that 
is  useful  to  the  business.  The  data  stored  could 
include  customer  name,  address,  phone,  occupa- 
tion, credit  limit,  current  balance,  brand  prefer- 
ence, total  purchases,  sales  representative,  and 
date  of  last  order.  The  business  manager  could  then 
obtain  lists  of  customers  according  to 

•  Outstanding  balance  of  30+  days,  for  collection 
purposes. 

•  Brand  preference,  for  research  and  promotional 
purposes. 

•  Sales  representatives. 

•  Those  who  have  not  ordered  within  the  last  year, 
for  consideration  of  removal  from  the  active  list 
or  for  a  followup  campaign. 

A  mailing  list  program  could  be  combined  with  a 
customer  maintenance  program  to  provide  a  pow- 
erful tool— an  accurate  profile  of  your  customer 
base,  useful  reports  for  the  sales  staff,  and  a  means 
for  select  mail  promotion. 

Payroll.  A  complete  payroll  calculation  pro- 
gram would  include  the  following  features:  time- 
card  hours  computation,  check  writing,  and  provi- 
sions for  commissions,  bonuses,  piecework 
salaries,  incentives.  W-2  forms,  and  payroll  sum- 
maries could  also  be  outputted. 

Inventory.  A  complete  inventory  manage- 
ment program  should  be  able  to  output  the  following 
reports:  detailed  inventory,  inventory  status,  on- 
order,  order  exception,  analysis  by  cost,  list  for  use 
in  physical  inventory,  period  to  date,  year  to  date, 
minimum  quantity  search,  and  inventory  projec- 
tions. The  following  file  update  functions  should 


also  be  provided:  place  and  order,  cancel  an  order, 
add  a  new  inventory  form,  delete  an  existing  in- 
ventory item,  initial  a  new  period  or  year.  The 
inventory  program  could  also  print  purchase  orders 
or  reminders. 

Contract  preparation.  A  word-processing 
system  could  print  personalized  contract  forms. 
Cost  estimation  functions  could  also  be  integrated 
into  the  contract  preparation  program. 

General  business  calculations.  Consider 
the  use  of  your  personal  computer  or  programmable 
calculator  in  performing  the  following  general  busi- 
ness computations,  which  may  previously  have 
been  too  awkward  or  time  consuming  when  done  by 
manual  methods:  cash  flow,  breakeven  point,  gov- 
ernment withholding  calculations,  selling  price 
from  cost  and  gross  profit  prorating,  unit  price 
comparisons,  order  quantity  for  optimum  price 
break,  moving  average,  seasonal  average,  cyclical 
analysis,  histogram  generation,  worse-case 
analysis,  universal  rate  of  return,  summation  of 
ledger  columns,  optimum  markup  or  markdown, 
net  present  value,  choice  between  debt  and  equity, 
lease  versus  buy  determinations,  funds  statement 
preparation,  perpetual  sales  quantity,  and  gross 
sales  revenue. 

Capital  equipment  investment  analysis. 
The  simple  BASIC  program  in  Listing  2-13  com- 
putes the  maximum  purchase  price  for  a  piece  of 
equipment  based  upon  estimated  profits. 


Professional  Practice  Management 

Professionals  with  large  practices  should  con- 
sider using  a  personal  computer  system  in 


Listing  2-13:  The  Capital  Equipment  Investment  Analysis  Program 

90  DIM  R  (100) 
100  PRINTCHR$(147)TAB(40)"CAPITAL  EQUIPMENT  INVESTMENT  ANALYSIS'' 
110  PRINTMDETERMINES  THE  MAXIMUM  PURCHASE  PRICE" 
120  PRINT"F0R  EQUIPMENT  BASED  UPON  ESTIMATED      PROFITS" 
130  PRINT: PRINT"ENTER  THE  EST.  NO.  OF  YEARS  OF  " 
135  INPUT'EQUIPMENT  LIFE";N 
HO  INPUT"ENTER  THE  INTEREST  RATE";I 
150  F0RX=1  TO  N 
160  PRINT"ENTER  THE  PROJECTED  EARNINGS  FOR  YEAR  :":X 
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170  INPUT  R(X) 

180  NEXT  X 

190  FOR  X=l  TO  N 

200  Q=Q+R(X)/I*X 

210  NEXT  X 

220  PRINT"THE  RECOMMENDED  PURCHASE  PRICE  IS: 

$";Q 

230  END 

•  Maintaining  appointments 

•  Billing  and  collection 

•  Generating  appointment  reminders 

•  Accessing  reference  libraries  and  data  resources 
for  journal  articles,  diagnoses,  case  laws,  stan- 
dards, rules  and  regulations,  codes,  and  drug 
information. 

•  Correspondence  and  document  preparation 

•  Telecommunication  with  laboratories  for  diag- 
nostic tests. 

•  Insurance  form  preparation  or  transmission. 

Business  Letters 

Professionally  prepared  files  of  business  let- 
ters are  available  for  popular  personal  computers  to 
save  you  time  and  enable  you  to  produce  better 
letters.  Typically  over  1000  letters  are  available  for 
review,  modification,  and  output  with  the  use  of  a 
word  processing  program. 

The  new  U.S.  Post  Office  E-COM  (electronic 
computer-originated  first  class  mail)  system  per- 
mits the  transmission  of  business  letters  via 
modem  to  the  E-COM  network;  the  letter  will  be 
printed  and  mailed  for  delivery  the  next  day  any- 
where in  the  U.S.  The  current  rate  is  $0.26  each. 
The  system  may  be  used  for  anyone  with  a  modem 
and  a  personal  computer  upon  payment  of  a  $50.00 
annual  accounting  fee. 

Sales  Device 

The  small  computer  may  be  used  as  a  sales 
device  in  several  ways.  Now  that  telephone  dialing 
interfaces  are  available,  you  can  use  the  computer 
to  call  every  possible  telephone  number  in  an  ex- 
change or  from  a  customer  file  and  deliver  a  tape- 
recorded  retail  sales  message  to  anyone  who 


answers.  At  expositions  or  retail  sales  outlets,  a 
computer  with  a  video  display  can  continually  list 
sales  information.  Crude  question-answering 
capabilities  could  also  be  provided. 

Use  of  the  computer  as  a  customer  advisor  can 
increase  sales  traffic  as  well.  For  example,  a  garden 
supply  shop  could  provide  customers  with  access  to 
a  computer  programmed  to  answer  gardening 
questions  about  specific  plants  (for  example,  ques- 
tions about  growing  seasons  and  nutrient  require- 
ments), amount  and  type  of  fertilizer  for  a  certain 
size  lawn  and  type  of  grass,  and  possibly  output  a 
complete  garden  plan.  A  wine  shop  computer  could 
recommend  a  type  of  wine  to  accompany  a  given 
meal,  the  glass  and  temperature  to  use,  and  the 
comparative  prices  of  wines.  The  cosmetics  de- 
partment of  a  store  could  use  the  computer  to 
suggest  brand  name  cosmetics  to  use  in  achieving  a 
certain  complexion.  A  swimming  pool  maintenance 
company  advertises  that  it  offers  a  free  computer 
analysis  of  anyone's  swimming  pool  water.  From 
water  samples,  the  computer  determines  the  type 
and  amount  of  chemicals  necessary  to  maintain  a 
specific  pool;  these  chemicals  are  then  sold  to  the 
pool  owner. 

The  Calculation  of  the 

Number  of  Days  Between  Two  Dates 

Businesspeople  often  need  to  know  how  much 
time  (usually  in  terms  of  days)  there  is  between  two 
given  dates.  A  program,  such  as  the  one  in  Listing 
2-14  stores  the  number  of  days  in  each  month  and 
could  serve  to  calculate  this  value.  Additionally, 
time  conversions  between  seconds,  minutes, 
hours,  days,  weeks,  months,  and  years  could  be 
performed. 
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Listing  2-14:  The  Calculation  of  the  Number  of  Days  Between  Two  Dates  Program 

10  PRINTCHR$(147)TAB(40)"DAYS  BETWEEN  TWO  DATES  CALCULATION" 

15  PRINT"FOR  TWO  DATES  IN  THE  SAME  YEAR" 

20  DIM  M(12) 

30  F0RX=1  TO  12 

40  READ  M(X) 

50  NEXT  X 

60  PRINT"IS  THIS  A  LEAP  YEAR  ( 1=YES , 2=N0)" ; 

70  INPUT  A 

80  IF  A=l  THEN  M(2)=29 

90  PRINT"INPUT  THE  FIRST  DATE  NUMERICALLY  IN  THIS  FORM: DAY , MONTH" 

100  INPUT  D1,M1 

110  PRINT"INPUT  THE  SECOND  DATE  IN  THE  SAME  FORM" 

120  INPUT  D2,M2 

125  IF  M1=M2  THEN  DA=D2-D1 -.GOTO  200 

130  EM=M(M1)-D1 

140  IF  M1+1=M2  THEN  190 

150  FOR  X=M1+1  TO  M2-1 

160  DA=DA+M(X) 

170  NEXT  X 

190  DA=DA+EM+D2 

200  PRINT"THE  NUMBER  OF  DAYS=";DA 

210  END 

220  DATA  31,28,31,30,31,30,31,31,30,31,30,31 


Time  Calculations  map  could  also  be  displayed  on  a  video  screen  with 

Calculation  of  the  difference  in  hours  or  days  the  appropriate  times  in  major  cities  continuously 

between  two  given  times  is  another  business  appli-  updated.  This  application  may  be  useful  to  those 

cation.  The  results  can  be  used  in  determining  making  long  distance  calls  or  flying  into  other  time 

hours  worked  for  payroll  purposes  or  in  figuring  zones. 

accumulated  interest.  The  program  in  Listing  2-15 

calculates  the  difference  between  two  times.  The  Calculation  of  Reference  Tables 

Time  differences  between  major  cities  or  time  Any  mathematical  function  may  be  expressed 

zones  could  be  calculated  by  a  program.  A  world  as  a  table  of  values  corresponding  to  the  factors  in 


Listing  2-15:  The  Time  Difference  Program 

5  PRINT  CHR$(147) 

10 

PRINT  "TIME  DIFFERENCE  CALCULATION" 

20 

REM  COMPUTES  DIFFERENCE  IN  HOURS , MINUTES , AND 

SECONDS 

30 

PRINT  "INPUT  THE  FIRST  TIME  IN  24.  HR.  CLOCK 

FORMATION." 

40 

PRINT  "HOURS, MINUTES, SECONDS" 

50 

INPUT  HI, Ml, SI 

60 

PRINT  "INPUT  FINAL  TIME  IN  24.  HR.  FORMAT." 

70 

INPUT  H2,M2,S2 

80 

NH=H2-H1 

90 

NM=M2-M1:IF  NM<0  THEN  NH=NH-1 :NM=60+NM 

100  NS=S2-S1:IF  NS<0  THEN  NM=NM-1 :NS=60+NS 

110  PRINT  "THE  DIFFERENCE  IN  H,M,S  IS: ";NH;NM;NS 

140  PRINT 

150  END 
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the  equation.  Businesspeople  who  need  to  calculate  The  conversion  rate  for  this  chart  is  1. 90  dollars  per 

the  value  of  a  particular  function  could  produce  a  British  pound.  As  an  example  of  its  use,  the  number 

table  listing  values  at  specified  intervals  for  easy  of  dollars  that  are  equivalent  to  4. 90  pounds  is  given 

reference.  For  example,  a  portion  of  a  chart  used  in  by  the  chart  as  9.31.  The  BASIC  program  used  to 

converting  British  pounds  to  American  dollars  is  print  the  chart  is  shown  in  Listing  2-16  and  can  be 

reproduced  here.  Note  that  the  dollar  equivalents  used  as  a  model  for  similar  programs  designed  to 

are  found  in  the  interior  of  the  chart.  calculate  reference  tables. 

Your  computer  can  be  a  time  saver  by  corn- 
pence  puting  and  outputting  tables  concerning  areas  such 

.00    .10    .20    .30     -40     .50      .00      .70     .80      .90  as 

oo   1  l". 90 2.09  2.28  2.47  2.66  2.85   3.04   3.23   3.42   3.61  C4r     . 

1  23.803.994.184.374.564.75   4.94   5.13   5.32    5.51  #  St°ck  commissions. 

|  3  5.70  5.89  6.08  6.27  6.46  6.65  6.84  7.03  7.22  7.41  •  Values  of  an  investment  or  savings  account  over 

4  7.607.79  7.98  8.178.36  8.55   8.74   8.99  9.12   9.31  periods  of  time. 


Listing  2-16:  The  Reference  Table  Program 

10  PRINTCHR$(147)TAB(42)"CONVERT  DOLLARS  TO  FOREIGN  CURRENCY" 

20  PRINT"ENTER  NAME  OF  FOREIGN  CURRENCY  TO  BE" 

25  INPUT"C0NVERTED";B$ 

30  PRINT"ENTER  DOLLAR  VALUE 

OF  ONE  UNIT  OF  DE-" 

35  PRINT"SIRED  FOREIGN  CURRENCY  (I.E.,  1.9  FOR" 

40  INPUT"BR1TISH  POUND"; A 

45  INPUTMPRESS  ENTER  TO  DISPLAY  CHART" ;A$ 

50  PRINTCHR$(  147 )TAB((40-LEN(B$))/2)B$: PRINT 

70  PRINT"    .00     .10 

.20    .30    .40" 

80  FOR  X=l  TO  10 

90  PRINTX; 

100  FOR  B=0  TO  .4  STEP  .1 

105  PRINT  TAB(B*70+3)""; 

110  FT=A*(X+B):GOSUB  200 

120  NEXT  B 

130  PRINT 

140  NEXT  X 

143  PRINT 

145  PRINT"    .50     .60 

.70    .80    .90" 

150  FOR  X=l  TO  10 

160  PRINTX; 

170  FOR  B=.5  TO  1  STEP  .1 

175  PRINT  TAB((B-.5)*70+'3)M 

t . 

180  FT=A-(X+B):GOSUB  200 

190  NEXT  B 

195  PRINT 

197  NEXT  X 

198  FOR  X=l  TO  5000: NEXT 

199  PRINTCHR$(19);:END 

200  REM  MONEY  FORMATTING  ROUTINE 

210  FT$=STR$(FT) 

220  FOR  Y=l  TO  LEN(FT$) 

230  Y$=MID$(FT$,Y,1) 

240  PRINT  Y$; 

250  IF  Y$="."  THEN  270 

260  NEXT  Y 

265  GOTO  330 
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270  Z=LEN(FT$)-Y 

280  IF  Z=0  THEN  PRINT  ".00";: GOTO  330 

290  IF  Z=l  THEN  PRINT  MID$(FT$ ,Y+1 , 1) ;"0"; 

:G0T0  330 

300  IF  Z>1  THEN  FOR  Z=l  TO  2 

310  PRINT  MID$(FT$,Y+Z,1); 

320  NEXT  Z 

330  RETURN 

•  Unit  prices  after  certain  quantity  purchases. 

•  Break-even  values  for  various  prices  and  sales  of 
a  product. 

•  UPS/USPS  rates  to  various  cities  for  various 
weights. 

THE  COMPUTER  AND  THE  PROFESSIONS 

In  this  section  a  variety  of  ways  in  which  the 
personal  computer  or  programmable  calculator  can 
be  used  in  the  professions  and  in  many  blue  collar 
occupations  are  listed.  This  short  listing  is  far  from 
complete;  uses  of  calculators  and  computers  are  so 
diverse  that  these  descriptions  can  only  be  sugges- 
tive of  a  few  of  the  many  applications. 


Accountants  and  tax 

specialists: 

Advertising: 


Agriculture: 


Appraisers: 


Architects: 


All  aspects  of  work 

Client  fees 

Composition  and  print- 
ing costs 

Production  (film  and  TV) 
costs 

Space  and  time  buying 

Statistics  in  market  re- 
search 

Yields  per  acre 

Livestock  growth  and 
feeding 

Livestock  food  supple- 
ments 

Crop  mix  and  rotation 

Fertilizer  ratios 

Comparative  values 

Quantities 

Summations 

Strength  of  materials 

Loads,  stresses,  and 
strains 


Artists  and  designers: 
Attorneys: 


Auto  salesmen: 


Auto  service  and 
repair: 


Banking: 


Broadcasting: 
Building  contractor: 


Geometrical  configura- 
tions 

Supplies  and  materials 

Scale  reductions  and  ex- 
pansions 

Client  fees  by  hours 
worked 

Terms  of  contracts 

Tax  calculations 

Bankruptcy  dispositions 

Optional  equipment 
costs 

Discounts  and  prices 

Used  car  allowances 

Towing  and  road  service 
costs 

Costs  of  materials  and 
labor 

Estimates 

Interest,  assets,  an- 
nuities, insurance 

Foreign  exchange 

Collateral 

Trust  and  pensions 

Program  scheduling 

Advertising  rates 

Station  logs 

Measuring  land  sites 

Amounts  and  costs  of 
roofing,  flooring,  sid- 
ing, etc. 

Electrical  loads  and 
needs 

Figuring  gutters,  win- 
dows, screen  sizes 

Water  pressures, 
plumbing 

Work  schedules  and 
transportation 
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Building 

maintenance: 
Buyer: 


Chemists  and  lab 
technicians: 


Construction 
trades: 


Dieticians: 


Educators— teachers: 


Employment 
counselors: 


Engineers: 


Supplies  and  power 

Waste  disposal 

Comparative  costs 
among  suppliers 

Shipping  charges 

Foreign  size  conver- 
sions 

Cost  relative  to  markup 
at  retail 

Profit  potential 

Quantitative  measure- 
ments 

Composition  of  solutions 
and  compounds 

Rates  of  reactions 

Volumetric  and  gravi- 
metric analysis. 

Calculations  of  mate- 
rials, labor  time, 
charges,  and  so  on  by 
bricklayers,  masons, 
carpenters,  plaster- 
ers, plumbers,  etc. 

Food  quantities  and 
costs 

Nutritional  and  caloric 
values 

Grading  homework  and 
examination  papers 

Classroom  games  and 
instructions  in  arith- 
metic, English,  etc. 

Working  conditions,  wa- 
ges, and  salaries 

Fringe  benefits 

Labor  supply  and  open- 
ings 

All  phases  of  construc- 
tion, including  plant 
location  studies,  tax 
rates,  labor  and 
transportation 
charges,  loads, 
amounts  and  costs  of 
raw  materials,  exca- 
vation   needs,    fill, 


Geologists: 


Hotel  and  inn  keepers: 


Independent 
businesses: 


Insurance  salesman: 


Interior  decorating: 


Jewelers: 


wood,  wire  and  ce- 
ment forms,  steel 
reinforcement, 
strength  of  materials, 
electrical  loads, 
chemical  reactions, 
etc. 

Land  measurements 

Chemical  analysis  and 
assays 

Mineral  depletion  rates 

Supplies  and  labor 

Occupancy  rates 

Concession  profits  and 
activity 

Group  discounts  and  ca- 
tering 

Balance  sheet,  profit  and 
loss  statements 

Purchases,  returns,  and 
allowances 

Cost  of  materials,  labor, 
services,  loans 

Figuring  profit  on  in- 
vestment and  costs  of 
expansion 

Itemizing  for  tax  deduc- 
tions 

Depreciation  schedules 

Premiums,  dividends  on 
policies 

Annuities 

Alternative  insurance 
packages 

Proper  levels  of  cover- 
age 

Amounts  and  costs  of 
fabrics,  rugs,  carpet- 
ing, drapes, 
wallpaper,  etc. 

Discounts  for  quantity 

Shipping  times  and 
charges 

Pricing  and  costs 

Composition  of  precious 
metals 
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Landscape  architects 
and  contractors: 


Manufacturer's 
representative: 


Market  research: 


Medical,  dental,  and 
other  health 
services: 


Pattern  makers: 


Personnel 

administration: 


Pharmacists: 


Photographers: 


Pilots: 


Gem  weights  and  sizes 
Land  areas,  planting  and 
fertilization 
schedules 
Land  fill 

Cost  of  items  less  dis- 
counts 

Shipping  and  insurance 
costs 

Invoices  prepared  for 
suppliers  and  clients 

Statistics  of  opinion  and 
field  testing 

Extent  and  nature  of 
competition 

Prescribing  or  utilizing 
medications,  ane- 
sthetics, prosthe- 
tic devices,  etc. 

Operational  costs  of  ser- 
vices 

Supplies  inventories  and 
costs 

Geometric  configura- 
tions 

Measurements  and  con- 
versions 

Alternative  designs 

Absenteeism  rates,  effi- 
ciency 

Vacations,  illness  rates 

Wage  rate  compliances 
and  comparisons 

Employee  benefits 

Hirings  and  severances 

Pharmaceutical  mea- 
surements 

Supplies  inventory  and 
costs 

Pricing 

Composition  of  solutions 

Supplies  comparisons 

Pricing 

Exposure  times  and 
shutter  speeds 

Passenger  and  freight 


Printers: 

Psychologists: 

Publishing: 


Real  estate: 


Restaurants: 


Renting  and  leasing: 


Sales,  door  to  door: 


Sales,  retail: 


Secretaries: 


loads 

Fuel   consumption   and 
capacities 

Navigation 

Paper  stocks 

Scheduling  printing  runs 

Psychological  testing 

Statistics  of  experiments 

Composition   and   print- 
ing costs 

Postage   and   shipping 
costs 

Inventory  control 

Distribution  costs 

Discounts 

Market  and  appraised 
value 

Development  costs 

Taxes,    insurance,   wa- 
ter, and  heating 
costs, 

Closing  fees 

Commissions 

Food  and  liquor  costs 
and  prices 

Tips 

Interest    charges    and 
cash  flow 

Inventory    and    usage 
rates 

Travel   and  other  ex- 
penses 

Statements  to  suppliers 

Commissions 

Taxes  and  commissions 

Inventory  and  turnover 

Pricing  — markups  and 
markdowns 

Petty  cash,    travel  ex- 
penses 

Postage  costs 

Budget,  production, 
sales  reports 

Employer's  personal  fi- 
nances 

Correspondence  and 
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Security  analysts: 


Securities  salesmen: 


Social  services: 


Surveyors: 
Travel  agents: 


memo  verification 
Profits,   expenses,   P/E 
ratios  working  capi- 
tal,      depreciation, 
growth   rates,    div- 
idends, etc. 
Technical   and   funda- 
mental analyses 
Margin  costs  and  avail- 
ability 
Dividend  and  interest 

yields 
Commissions  earned 
Growth    rates,     price 
changes,     balanced 
portfolios 
Welfare  availability  ver- 
sus family  needs 
Family  budgeting 
Land  measurements 
Discounts    on    fares, 

tours,  hotels 
Commissions  earned 
Distances  and  costs  per 

distance 
Converting  foreign  cur- 
rencies,   kilometer 
distances,  etc. 


Trucking  and  shipping: 


Typographers: 

Waiters  and  waitresses: 

Wholesalers  and 
manufacturers 


Billing  airlines,  steam- 
ship lines,  bus  com- 
panies, tours,  hotels, 
etc. 

Load  capacities  by 
weight  and  volume 

Distances,  time  sched- 
ules, costs 

Equipment  inventory 
and  maintenance 

License  fees  and  taxes 

Printers'  measurements 

Plates  and  etchings 

Tips 

Totaling  checks 

Labor  and  overhead 

Loss  on  discounting 
customers'  interest- 
bearing  notes 

Interest  on  account  bal- 
ances 

Recording  payments, 
promissory  notes, 
partial  payments 

Consignments  and  re- 
turns 

Shipping  costs  and  taxes 
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Chapter  3 


Mathematical  and 
Statistical  Applications 


One  of  the  biggest  assets  of  the  computer  is  its 
ability  to  perform  complicated  and  tedious 
mathematical  calculations  with  unerring  diligence. 
Your  personal  computer  may  be  programmed  to 
emulate  a  simple  adding  machine  or  a  complex  sci- 
entific business  calculator.  It  can  perform  statistical 
computations  of  use  to  those  involved  with  busi- 
nesses, investments,  questionnaire  analysis,  the 
sciences,  and  other  fields. 

THE  COMPUTER  AS  A  SOPHISTICATED  CALCULATOR 

A  program  could  be  written  to  emulate  the 
functions  of  an  ordinary  or  an  RPN  calculator.  The 
computer  could  be  used  as  a  simple  business  or 
scientific  calculator  for  a  variety  of  purposes.  Addi- 
tionally, functions  not  provided  on  an  ordinary  cal- 
culator could  easily  be  included  (for  example,  the 
ability  to  solve  quadratic  equations). 

RPN  Calculator 

RPN  stands  for  Reverse  Polish  Notation  and  is 
a  system  of  representing  mathematical  equations. 


Some  of  the  advanced  scientific  calculators  use  the 
RPN  system  because  fewer  keystrokes  are  re- 
quired to  do  complex  calculations  with  an  RPN 
system  than  with  the  regular  system.  The  RPN 
system  is  often  easier  to  use  after  you  have  gained 
familiarity  with  it.  The  purpose  of  the  program  in 
Listing  3-1  is  to  emulate  an  RPN  calculator,  pro- 
viding about  50  mathematical  functions.  This  pro- 
gram is  thus  composed  of  50  subroutines,  identified 
by  REM  statements,  that  may  be  used  as  sub- 
routines in  other  BASIC  programs  that  require 
functions  not  provided  by  your  version  of  BASIC. 

In  the  RPN  system  there  are  no  parentheses 
and  no  =  (equals)  key.  Only  two  numbers  are 
worked  with  at  one  time.  A  sample  calculation 
would  proceed  as  follows: 


Step 

® 


Input 

2.5 


Comments 

Enter  first  number 

These  are  the  four 
registers 
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Step     Input     Display         Comments 


function 


description 


(D 


© 


© 


(D 


10 


(D 


© 


+ 


4 
2.5 

0 
0 


10 

4 

2.5 

0 


10 
10 
4 
2.5 

5 

10 
10 
4 


Enter  second  number 
as  new  numbers  are 
input,  preceding  inputs 
are  shifted  through  the 
registers. 

*  stands  for  multiplica- 
tion. The  answer  to 
2.5  x  4  was  calculated 
and  put  in  the  first  po- 
sition in  the  display. 

enter  third  number 


enter  forth  number 


2 
5 

10 
10 


/  stands  for  division. 
The  following  calcula- 
tion was  performed,  and 
the  answer  was  stored  in 
the  first  display  position: 
10/5  =  2 

The  +  sign  instructed 
that  the  two  preceding 
results  were  to  be 
added:  10+2=12;  the 
answer  was  stored  in 
the  first  position.  The 
two  preceding  results 
were  added  because  no 
new  numbers  were  in- 
put for  the  computa- 
tion. 

The  functions  available  in  this  program  are 
listed  and  described  below: 


12 
2 
5 
10 


*  multiplication 

+  addition 

/  division 

-  subtraction 

f  powers  (e.g.,  xt  y 

stands  for  xy  and  xt.5 
V-  stands  for  Vx) 

INV  inverse  (e.g.,  1/x) 

C  clear  display/registers 

SIN  compute  the  sine  of  x 

ASIN  compute  the  arcsine  of  x 

COS  compute  the  cosine  of  x 

ACOS  compute  the  arccosine  of 

x 
TAN  compute  the  tangent  of  x 

ATAN  compute  the  arctangent  of  x 

SEC  compute  the  secant  of  x 

ASEC  compute  the  arcsecant  of 

x 
COT  compute  the  cotangent  of 

x 
ACOT  compute  the  arccotangent 

of  x 
CSC  compute  the  cosecant  of 

x 
ACSC  compute  the  arccosecant 

of  x 
PI  place  the  value  of  rr  in 

the  register 
E  compute  the  exponential 

of  x  (i.e.,  ex) 
LOG  compute  the  logarithm 

of  x 
MEM+  add  a  number  to  the 

memory  register 
MEM-  delete  a  number  from  the 

memory  register 
%  change  x  to  a  percentage 

value 
N!  compute  the  factorial  of  x 

SD  compute  the  standard 

deviation  for  a  set  of 

scores 
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nction 

description 

function 

HYP 

compute  the  value  for  the 
hypotenuse  of  a  triangle 

HCOT 

given  the  two  sides 

#SIN 

SIDE 

compute  the  value  for  a 

side  of  a  triangle  given 

#cos 

the  hypotenuse  and  another  side 

DEG 

change  x  from  radians  to 
degrees 

#TAN 

RAD 

change  x  from  degrees  to 
radians 

#SEC 

POLR 

compute  polar  coordi- 
nates given  rectangular 

#CSC 

coordinates 

#COT 

RECT 

compute  rectangular 

coordinates  given  polar 

SZ 

coordinates 

RZ 

MET 

compute  metric  conver- 
sions—a subprogram 

QUAD 

HSIN 

compute  the  hyperbolic 
sine  of  x 

HCOS 

compute  the  hyperbolic 
cosine  of  x 

? 

HTAN 

compute  the  hyperbolic 
tangent  of  x 

HSEC 

compute  the  hyperbolic 
secant  of  x 

HCSC 

compute  the  hyperbolic 
cosecant  of  x 

description 

compute  the  hyperbolic 

cotangent  of  x 
inverse  hyperbolic  sine 

of  x 
inverse  hyperbolic  cosine 

of  x 
inverse  hyperbolic 

tangent  of  x 
inverse  hyperbolic 

cosecant  of  x 
inverse  hyperbolic 

cotangent  of  x 
inverse  hyperbolic 

secant  of  x 
switch  the  z  registers 
rotate  the  z  registers 
compute  solutions  to 

quadratic  equations 

with  the  quadratic 

equation 
put  computer  in  monitor 

mode  so  that  ordinary 

calculations  may  be 

made  in  the  form 

PRINT  5*1.6.  Type 

CONT  in  some  BASICs 

to  continue  with  the 

program 


Listing  3-1:  The  RPN  Calculator  Program 

10  PRINTCHR$(K7)TAB(50)"RPN  CALCULATOR" : PRINT 

15  REM  (C)  1978  MARK  R.  SAWUSCH— MAY  NOT  BE  SOLD. 

20  PRINTnF0R  DETAILED  INSTRUCTIONS  IN  THE  USE  OF" 

25  PRINT  "THIS  PROGRAM  CONSULT  THE  ACCOMPANYING" 

30  PRINTMB00K." 

35  F0RX=1  TO  4000:NEXT:PRINTCHR$(147) 

40  DIM  A(100),M$(21),D$(50),K(25) 

50  PRINTTAB(55)"MAXI-CAL" 

55  G=1:F=1 

60  FOR  D=l  TO  50:READD$(D):NEXT 

70  D=l 

100  REM  ASK  FOR  COMMAND/VALUES 

110  INPUTC$ 

112  0=0 

115  IF  VAL(C$)=0  THEN  130: REM  DETERMINE  IF  A  COMMAND  OR  A  NUMBER 

120  A(G)=VAL(C$):X=A(G):IF  F(l)=2  THEN  F(2)=2:GOTO  122 

121  F(l)=2 

122  L=G 
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124  IF  G=l  THEN  G=2:G0T0  126 

125  G=l 

126  GOTO  3005 
128  GOTO  110 

130  A(G)=L1:IF  F(l)=l  THEN  F(2)=1:G0T0  134 
132  F(l)=l 

134  REM  SEARCH  TO  FIND  THE  COMMAND 

135  FOR  1=1  TO  50 

136  IF  C$=D$(I)  THEN  140 

137  NEXT  I 

139  PRINT"ILLEGAL  FUNCTION"  :  PRINTrGOTO  110 

140  IF  I<=15  THEN  145 

141  IF  I>15  AND  I<=28  THEN  I=I-15:G0T0146 

142  IF  I>28  AND  I<=41  THEN  I=I-28:GOT0147 

143  IF  I>41  THEN  1  =  1-41 : GOTO  148 

145  ON  I  GOTO  150,200,250,300,350,400,500,550,600,650,700,750,800,850,900 

146  ON  I  GOTO  950,1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,1550 

147  ON  I  GOTO  1600,1650,1700,1750,1800,1850,1910,1950,2000,2050,2100,2150,2200 

148  ON  I  GOTO  2250,2300,2350,2400,2450,2500,2550,2600,2700 

149  REM  CALCULATE  * 

150  IF  F(1)=F(2)ANDF(1)=1  THEN  X=Z1*Z4:G0T0  160 
155  X=Z1*Z2 

160  GOTO  3005 

199  REM  CALCULATE* 

200  IF   F(1)=F(2)ANDF(1)=1    THEN   X=Z1+Z4:G0T0   210 
205   X=Z1+Z2 

210  GOTO    3005 

249  REM  CALCULATE/ 

250  IF   F(1)=F(2)ANDF(1)=1    THEN   X=Z4/Z1:G0T0   260 
255   X=Z2/Z1 

260  GOTO    3005 

299  REM  CALCULATE - 

300  IF  F(1)=F(2)AND  F(l)=l  THEN  X=Z4-Z1:G0T0  310 
305  X=Z2-Z1 

310  GOTO  3005 

349  REM  CALCULATE  POWERS 

350  X=Z2*Z1:G0T0  3005 
360  GOTO  3005 

399  REM  CALCULATE  INVERSES 

400  X=1/Z1:G0T0  3005 

499  REM  CLEAR  REGISTERS 

500  Zl=0:Z2=0:Z3=0:Z4=0:GOTO3010 

549  REM  CALCULATE  SIN 

550  A(L)=SIN(A(L)*. 0174533) 
560  GOTO  3000 

599  REM  CALCULATE  ARC  SIN 

600  A(L)=ATN(A(L)/SQR(-A(L)*A(L)  +  1))*57.  29578 
610  GOTO  3000 

649  REM  CALCULATE  COSINE 

650  A(L)=COS(A(L)*. 0174533) 
660  GOTO  3000 

699  REM  CALCULATE  ARC  COSINE 

700  A(L)=(-ATN(A(L)/SQR(-A(L)*A(L)+1))+1.  5708)*57.  29578 
710  GOTO  3000 

749  REM  CALCULATE  TANGENT 

750  A(L)=TAN(A(L)*. 0174533) 
760  GOTO  3000 
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799  REM  CALCULATE  ARC  TANGENT 

800  A(L)=ATN(A(L))*57. 29578 
810  GOTO  3000 

849  REM  CALCULATE  SECANT 

850  A(L)=1/C0S(A(L)*. 0174533) 
860  GOTO  3000 

899  REM  CALCULATE  ARC  SECANT 

900  A(L)=(ATN(SQR(A(L)*A(L)-1))+(SGN(A(L)-1)*1. 5708) )*57. 29578 
910  GOTO  3000 

949  REM  CALCULATE  COTANGENT 

950  A(L)=1/TAN(A(L)*. 0174533) 

999  REM  CALCULATE  ARC  COTANGENT 

1000  A(L)=(-ATN(A(L)+1. 5708) )*57. 29578 
1010  GOTO  3000 

1049  REM  CALCULATE  COSECANT 

1050  A(L)=1/SIN(A(L)*. 0174533) 
1060  GOTO  3000 

1099  REM  CALCULATE  ARC  COSECANT 

1100  A(L)  =  (ATN(1/SQR(A(L)*A(L)-1))+(SGN(A(L)-1)*1.5708)")*57.  29578 
1120  GOTO  3000 

1149  REM  VALUE  FOR  PI 

1150  Z1=3.141592754:G0T0  3010 
1160  GOTO  3000 

1199  REM  CALCULATE  NATURAL  LOGARITHM 

1200  A(L)=EXP(A(L)) 
1210  GOTO  3000 

1249  REM  CALCULATE  LOGARITHM 

1250  A(L)=LOG(A(L)) 
1260  GOTO  3000 

1299  REM  MEMORY  ADDITION 

1300  DD=DD+1 

1310  INPUT"WHICH  REGISTER" ;D 

1320  IF  D=l  THEN  M$(DD)=STR$(Z1) :GOTO  1330 

1322  IF  D=2  THEN  M$(DD)=STR$(Z2) :GOTO  1330 

1324  IF  D=3  THEN  M$(DD)=STR$(Z3) :GOTO  1330 

1326  M$(DD)=STR$(Z4) 

1330  INPUT"DESCRIPTION";C$ 

1340  M$(DD)=M$(DD)+M  "+C$ 

1345  GOTO  110 

1349  REM  MEMORY  LISTING 

1350  F0RD=1  TO  DD 
1360  PRINT  M$(D) 
1370  NEXT  D 

1380  GOTO  110 

1399  REM  CONV.FOR% 

1400  A(L)=A(L)*.01 
1410  GOTO  3000 

1449  REM  COMPUTE  FACTORIAL 

1450  FOR  YY=1  TO  A(L) 
1470  A(L)=A(L)*(A(L)-YY) 
1480  NEXT  YYrGOTO  3000 

1499  REM  STATISTICS 

1500  PRINT"IN  STATISTICAL  MODE" 

1501  PRINT 

1502  PRINT"ENTER  VALUES  SEPARATELY  AND  ENTER  999   WHEN  DONE" 
1505  B=0:C=0:D=1 

1510  INPUT  K(D) 

1520  IF  K(D)=9999  THEN  1541 
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1530  B=B+K(D):C=C+K(D)42:D=D+1 

1540  GOTO  1510 

1541  PRINT"SC0RES:":F0RH=1T0(D-1) 

1542  PRINTK(H); 

1543  NEXT  H: PRINT 

1544  PRINT"SUM  OF  SCORES" /'NUMBER  OF  SCORES" 

1545  PRINT  B, , ,D-1 

1546  PRINT: PRINT"MEAN", "VARIANCE" 

1547  PRINTB/(D-1),C-(B/(D-1))A2 

1548  PRINT"STANDARD  DEVIATI0N=";SQR(C-(B/(D-1) )42) 

1549  REM  COMPUTE  HYPOTENUSE 

1550  X=SQR(Z1A2+Z2*2) 
1560  GOTO  3005 

1599  REM  COMPUTE  SIDE  OF  TRIANGLE 

1600  X=SQR(ABS(ZU2-Z2A2)):GOTO  3005 

1649  REM  CONV.  TO  DEGREES 

1650  A(L)=A(L)*57. 2957791 
1670  GOTO  3000 

1699  REM  CONV.  TO  RADIANS 

1700  A(L)=.017453292-;'-A(L) 
1720  GOTO  3000 

1749  REM  RECT.  TO  POLAR  CONV. 

1750  Z1=SQR(Z1*Z1+Z2*Z2) 
1760  A=Z2/Z1 

1770  Z2=(ATN(A/SQR(-A*A+1)))*57. 29578 
1790  GOTO  3010 

1799  REM  POLAR  TO  RECT. CONV. 

1800  B=Z1*SIN(Z2*. 0174533)  :Z2=Z1*C0S(Z2*. 0174533)  :Z1=B:G0T0  3010 
1850  A(G)=Z1:PRINT"M  E  N  U:" 

1852  PRINT"USE  THE  NEGATIVE  OF  THE  MENU  #  TO  CONVERT  VICE-VERSA)" 

1855  PRINT" 1)FEET  TO  METERS" 

1856  PRINT"2) INCHES  TO  CENTIMETERS" 

1857  PRINT"3)MILES  TO  KILOMETERS" 

1858  PRINT"4)GALL0NS  TO  LITERS" 

1859  PRINT"5)FARENHEIGHT  TO  CENTIGRADE" 

1860  PRINT"6)P0UNDS  TO  KILOGRAMS" 

1861  PRINT"7)END  CONVERSIONS" 

1864  INPUT"SELECT";H 

1865  IF  H<0  THEN  GOTO  1867 

1866  ON  H  GOTO  1870,1876,1882,1888,1894,1900,110 

1867  ON  -H  GOTO  1873,1879,1885,1891,1897,1903 
1870  X=.33047851*A(G):G0T0  4000 

1873  X=A(G)*3.281:G0T0  4000 

1876  X=A(G)*2.54:GOTO  4000 

1879  X=A(G)-.3937:G0T0  4000 

1882  X=A(G)* 1.609: GOTO  4000 

1885  X=A(G)*.6215:G0T0  4000 

1888  X=3.7853*A(G):G0T0  4000 

1891  X=.2642*A(G):GOTO  4000 

1894  X=.5555555*(A(G)-32):G0T0  4000 

1897  X=1.8*A(G)+32:G0T0  4000 

1900  X=.4536-A(G):G0T0  4000 

1903  X=2.2046-*A(G):GOTO  4000 

1909  REM  COMPUTE  HYPERBOLIC  SINE 

1910  A(L)=(EXP(A(L))-EXP(-A(L)))/2 
1920  GOTO  3000 

1945  REM  COMPUTE  HYPERBOLIC  COSINE 
1950  A(L)=(EXP(A(L))+EXP(-A(L)))/2 
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1960  GOTO  3000 

1999  REM  COMPUTE  HYPERBOLIC  TANGENT 

2000  A(L)=-EXP(-A(L))/(EXP(A(L))+EXP(-A(L)))*2+1 
2010  GOTO  3000 

2049  REM  COMPUTE  HYPERBOLIC  SECANT 

2050  A(L)=2/(EXP(A(L))+EXP(-A(L))) 
2060  GOTO  3000 

2099  REM  COMPUTE  HYPERBOLIC  COSECANT 

2100  A(L)=2/(EXP(A(L))-EXP(-A(L))) 
2110  GOTO  3000 

2149  REM  COMPUTE  HYPERBOLIC  COTANGENT 

2150  A(L)=EXP(-A(L))/(EXP(A(L))-EXP(-A(L)))*2+1 
2160  GOTO  3000 

2349  REM  COMPUTE:  INV.  HYPERBOLIC  SECANT 

2350  A(L)=L0G((SQR(-A(L)*A(L)+1)+1)/A(L)) 
2360  GOTO  3000 

2399  REM  COMPUTE  INV.  HYPERBOLIC  COSECANT 

2400  A(L)=L0G((SGN(A(L))*SQR(A(L)*A(L)+1)+1)/A(L)) 
2410  GOTO  3000 

2449  REM  COMPUTE  INV.  HYPERBOLIC  COTANGENT 

2450  A(L)=L0G((A(L)+l)/(A(L)-l))/2 
2460  GOTO  3000 

2500  B=Z2:Z2=Z1:Z1=B:G0T0  3010 

2550  B=Z4:Z4=Z3:Z2=Z1:Z1=B:G0T0  3010 

2600  B=Z2*Z2+SQR(Z2*Z2-4*Z3*Z1)/2*Z3 

2610  Z1=Z2*Z2-SQR(Z2*2-4*Z3*Z1)/2*Z3 

2620  Z2=B 

2650  GOTO  3010 

2700  PRINT"ENTERING  MONITOR  MODE" 

2710  STOP 

2720  GOTO  110 

3000  Z1=A(L):G0T0  3010 

3005  Z4=Z3:Z3=Z2:Z2=Z1:Z1=X 

3010  PRINT"Z1:";Z1 

3011  PRINT"Z2:";Z2 
3013  PRINT"Z3:";Z3 
3015  PRINT"Z4:";Z4 
3090  PRINT: PRINT 

3999  GOTO  110 

4000  PRINT"=";X:PRINT:PRINT:GOTO  1850 

4500  DATA*,  +,/,-,  ♦,  INV,  C,  SIN,  ASIN  ,  COS,  ACOS  ,  TAN,  ATAN  ,  SEC,  ASEC,  COT,  ACOT,  CSC,  ACSC 
4510  DATA  PI,E,LOG,MEM+,MEM-,%,N!,SD,HYP,SIDE,DEG,RAD,POLR,RECT,MET,HSIN,HCOS 
4520  DATA  HTAN  ,HSEC,HCSC,HCOT,#SIN,#COS,#TAN,#SEC  ,#CSC,#COT,SZ,RZ  ,QUAD,  ? 


STATISTICS  ^(deviation  from  true  mean)2 

The  microcomputer  is  well-suited  for  dealing  Variance     °"x     = 

with  statistics.   Basic  statistics  for  one  or  two 

variables— the  mean,  variance,  and  standard  de-  ^(x  -u)2 

viation  may  be  found  for  a  set  of  observations  on  one  = 

variable.  For  paired  variable  sets,  the  above  statis-  n 

tics  could  be  determined  for  each,   and  the  Standard  deviation     a   V  variance 

covariance  and  correlation  coefficient  calculated.  

v  SXY  -  nXY 

zx  r  = 


Mean  x  =  —  V(2X?-nJP)(2Y2-nY*) 
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Means  and  moments.  For  grouped  or  un- 
grouped  data,  the  arithmetic,  geometric,  and  har- 
monic means  may  be  determined;  the  second, 
third,  and  fourth  moments  about  the  mean  and  the 
coefficients  of  skewness  and  kurtosis  may  also  be 
calculated. 

One  and  two  way  analysis  of  variance. 
The  mean  and  variance  for  two  treatment  groups 
and  for  the  entire  sample  may  be  calculated,  and  an 
F  statistic  can  be  applied  to  the  differences  between 
populations. 

Contingency  table  analysis.  The  chi- 
square  statistic  may  be  used  to  test  independence 
between  row  and  column  classifications  of  a  con- 
tingency table. 

Linear  regression.  A  set  of  observations 
may  be  fit  to  a  straight  line  by  linear  regression;  the 
coefficient  of  determination,  the  standard  error  of  y 
on  x,  and  the  standard  error  for  the  coefficients  may 
also  be  computed.  Multiple  linear  regression  fits, 
and  polynomial  regression  could  also  be  performed. 

For  the  linear  equation  y  =  a  +  bx. 


b  = 


X  XY  -  nX  Y 


X  X2  -nX2 
a  =        T-  bX 

where  X  =  (2  X)/n,  7  =  (2  Y)/n 

Survey  analysis.  The  following  statistical 
parameters  could  be  calculated  by  a  complete  sur- 
vey analysis  program:  multivariate  analysis,  re- 
gression analysis,  time-series  analysis,  variance 
determination,  factor  analysis,  descriptions,  and 
tabulations. 

Generation  of  frequency  tables.  For  a 
large  sample,  a  sorting  program  could  output  a 
standard  or  relative  frequency  table. 

Hypothesis  testing.  A  useful  program  could 
determine  confidence  intervals  for  a  given  sample, 
which  may  then  be  used  in  testing  hypotheses. 
Statistical  hypothesis  testing  is  used  to  answer 
such  questions  as,  "A  businessman  claimed  that 
20%  of  the  public  prefer  his  products;  if  100  people 
were  asked  their  opinion,  what  percentage  would 


have  to  respond  negatively  for  this  claim  to  be 
refutable? 

Statistical  distributions.  The  approxima- 
tions for  normal  and  student's  t-distributions  given 
below  are  designed  for  easy  translation  into  BASIC 
program  statements  and  have  wide  applications  in 
statistical  analysis. 

•  Normal  Distribution 


\X  x 

Standard  Normal  Distribution 


(x  -  //,) 

u   =  - — 


<TX 


probability  of  x  falling  in  the  shaded  area  above 
1  -  r^t  +  a2t2  +  a3t3)  +  e(x) 

where:  ax  =  0.4361836 

a2=  -0.1201676 

a32=  0.9372980 

r  =  (e-x/2)(277-r /2 

t   =  (1  +  0.3326X)-1 
|  e(x)  |   <   10-5 

Student's  t-distribution 


Student's  t-distribution 


area  of  right-tail  =  lA{\  +  aTx  +  ^x2  +  a3x3 
a   x4)-4  +  e(x) 


where:  ax   =  0.196854 
a2   =  0.115194 
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a,}   =  0.000344 
a4   =  0.019527 

t  =  t-value 

d  =  no.  degrees  of  freedom 

x  =  (t2/3(l  -  2/9d)  -  7/9)  (2/9  +  t2/3  •  2/9d)"" 

|  e(x)  |   <  2.5  •  lO"4 

Similar  approximations,  available  in  statistical 
handbooks  and  the  U.S.  Bureau  of  Standards  manu- 
als of  computer  approximations,  may  be  used  to 
compute  Chi-Square  and  F  distributions. 

Statistical  Analysis 

The  statistical  analysis  program  in  Listing  3-2 
has  a  wide  range  of  applications  in  business,  stock 
analysis,  and  the  sciences.  The  program  consists  of 
six  subprograms  including  statistics  with  one  vari- 
able, statistics  with  two  variables,  area  under  a 
curve  computation,  and  exponential  smoothing  cal- 
culations. 

The  first  subprogram,  statistics  with  one  vari- 
able, is  used  to  find  basic  descriptions  for  a  set  of 
data  (that  is  the  mean  and  the  standard  deviation). 


The  second  subprogram  determines  the  linear  re- 
gression for  a  set  of  (x,y)  pairs.  For  example,  the 
relationship  between  the  price  of  a  stock  (x)  to  the 
Dow  Jones  Industrial  Average  (y)  could  be  deter- 
mined by  inputting  corresponding  pairs  of  values. 
The  third  subprogram  computes  the  area  under  a 
normal  curve  between  two  points.  A  normal  curve 
is  used  to  describe  many  phenomena;  it  is  pictured 
and  mathematically  described  above.  The  area 
under  the  curve  is  equal  to  one;  the  average  of  a  set 
of  data  (x)  is  the  point  at  which  the  curve  peaks.  If 
two  values  on  the  x  axis  are  picked,  the  area  under 
the  curve  between  these  two  points  is  equal  to  the 
probability  of  a  value  being  between  those  points; 
this  subprogram  computes  the  area,  or  probability, 
between  two  given  points.  The  fourth  subprogram 
computes  the  cumulative  binomial  probability  for 
the  occurrence  of  a  given  value.  The  fifth  subpro- 
gram plots  data  described  in  subprogram  one  in 
simple  bargraph  format.  This  section  could  be  im- 
proved to  plot  data  on  an  x,  y  axis  or  to  create  a 
labeled  histogram.  The  sixth  subprogram  exponen- 
tially smooths  a  set  of  data.  Data  values  are  en- 
tered, and  an  exponential  function  is  used  to  predict 
future  values.  This  smoothing  constant  should  be 
adjusted  so  that  the  output  error  is  minimized. 


40  PRINT"1 STATISTICS 
50  PRINT"2)STATISTICS 
60  PRINT"3)AREA   UNDER 


Listing  3-2:  The  Statistical  Analysis  Program 

10  PRINTCHR$(147)TAB(45)"STATISTICAL  ANALYSIS  PROGRAM" 
20  PRINTTAB(45)"F0R  BUSINESS  AND  STOCK  ANALYSIS" -.PRINT 
25  CLR:CT=0 

27  DIM  X(110),A(110),Y(110) 

28  DIM  Y1(100,2),S(3,2) 
30  PRINT"MENU:" 

FOR  1  VARIABLE" 

FOR  2  VARIABLES" 

A  CURVE  COMPUTATION" 
62  PRINT"4)CUMULATIVE  BINOMIAL  PROBABILITY  CALC." 
64  PRINT"5)PL0T  DATA" 

66  PRINT"6)EXP0NENTIAL  SMOOTHING  PROGRAM" 
68  INPUT  A: ON  A  GOTO  70,1400,900,4000,5000,6000 
70  REM  ONE  VARIABLE  CALCULATIONS 

80  PRINT"ENTER  SUCCESSIVE  VALUES  SEPARATELY,  ENTER  '9999'  TO  END" 
90  D=1:C=0:B=0:E=0 
100  INPUT  A(D) 
120  GOTO  150 
130  INPUT  A(D) 
140  IF  A(D)=9999  THEN  500 
150  B=B+A(D) 
160  C=C+A(D)*A(D) 
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170  D=D+1 

180  GOTO  130 

500  D=D-1:M=B/D 

505  PRINTCHR$(147):REM  CLEAR  SCREEN 

510  PRINT"NO.  OF  SCORES", "SUM  OF  SCORES" 

520  PRINT  D, ,B 

530  PRINT 

540  FOR  H=l  TO  D 

550  G=G+A(H)-M 

555  SG=SG+(A(H)-M)42 

560  NEXT  H 

570  SG=SG/(D-1):SG=SQR(SG) 

580  PRINT"MEAN", "VARIANCE", "MEAN  AVE.  DEV." 

590  PRINT  M,SGt2,SG,G 

600  PRINT: PRINT"PROBABLE  ERROR"  ,  "VARIATION  COEF." 

610  PRINT  .6745*SG,D/M 

615  PRINT 

620  PRINT"STANDARD  ERROR  FOR  THE  MEAN=" ;SQR(SG*2/D) 

630  PRINT 

640  FOR  1=1  TO  D-l 

650  FOR  J=l  TO  D-l 

660  X=A(J):Y=A(J+1) 

670  IF  A(J)<=A(J+1)  THEN  690 

680  A(J)=Y:A(J+1)=X 

690  NEXT  J, I 

700  INPUT"PRESS  RETURN  TO  CONTINUE" ;A$ 

710  PRINTCHR$(147)"MEASURE","FREQ","REL  FREQ" 

720  PRINTTAB(240)"DEV  FRM  AVE   DEV  SQUARED"  ,"STD  DEV" 

730  J9=0 

750  FOR  J8=l  TO  D 

760  H=l 

770  FR=1 

790  J=l 

800  IF  A(J8)=A(J8+J)  THEN  FR=FR+1:G0T0  810 

805  GOTO  830 

810  J=J+1 

820  GOTO  800 

830  J9=J9+1 

840  PRINTCHR$(19)TAB(80+CT*40)J9;A(J8),FR,FR*1/D 

850  PRINTTAB(240)  M-A( J8)  ,  (M-A(  J8))f2, (A(J8)-M)/SG 

855  CT=CT+1:IF  CT>4  THEN  CT=0:PRINTTAB(  240)  "MORE— PRESS  RETURN  TO  CONTINUE" 

857  INPUT  A$ 

860  IF  FR>1  THEN  J8=J8+FR-1 

862  RM=RM+FR*A(J8)f2 

863  NEXT  J8:CT=0 

864  PRINT"HIGHEST  SCORE" , "LOWEST  SCORE" 

865  PRINT  A(D), ,A(1) 

867  PRINT"ROOT  MEAN  SQUARE-" ;SQR(RM) 

870  PRINT"THUS  X=" ;M;"PLUS/MINUS";SG/SQR(D) 

880  INPUT"PRESS  RETURN  TO  CONTINUE" ;A$: GOTO  30 

900  REM  AREA  UNDER  NORMAL  CURVE 

910  PRINT"ENTER  THE  STANDARD  Z  VALUE"; BE 

920  INPUT  BE 

930  PRINT 

940  PRINT  "X  VALUE  AREA  TO  LEFT   AREA  TO  RIGHT" 

950  A=BE 

970  C=0:E=1:H=BE:D=0:G=BE*2:F=.398942*EXP(-.5*G) 
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1030  J=H/E 

1040  C=C+J:IF  J/C<. 000001  THEN  1120 

1050  L=1:E=1:D=D+1:H=G*H 

1060  FOR  K=l  TO  D 

1070  E=E+2:L=L*E 

1080  NEXT  K 

1100  E=L:GOTO  1030 

1120  M=F*C+.5:N=1-M 

1130  PRINT  A,M,N 

1140  GOTO  1370 

1160  BE=BE/1. 14142 :0=BE*2:P=EXP(-0)*.56419/BE:0=.  5*0 

1200  P1=0*2:M=0*P:P2=0:P3=0 

1240  P5=1:P4=1 

1260  P2=P2+2 

1270  IF  P3=P  THEN  1320:GOTO  1280 

1275  P3=P 

1280  P=P5:P4=0*P4*(P2-1)+P5:M=P2*M*P1*(P2+1) 

1310  GOTO  1260 

1320  P6=P*.5:Q=1-P6 

1330  PRINT  A,Q,P6 

1350  BE=A+10 

1360  GOTO  950 

1370  PRINT 

1380  GOTO  30 

1400  D=1:PRINT"REGRESSI0N  AND  CORRELATION  ANALYSIS": PRINT 

1410  PRINT"ENTER  X,Y  VALUES  AS  PAIRS  SEPARATED  BY  COMMAS" 

1415  PRINT"ENTER  9999,9999  WHEN  DONE" 

1420  INPUT  X(D),Y(D) 

1430  IF  X(D)=9999  AND  Y(D)=9999  THEN  1510 

1440  Q9=Q9+X(D):R9=R9+Y(D) 

1450  Q8=Q8+X(D)*2:R8=R8+Y(D)*2 

1480  R6=R6+X(D)*Y(D):D=D+1 

1500  GOTO  1420 

1510  D=D-1:N=D:Q7=Q9/D:R7=R9/D 

1540  A9=Q8-Q9*Q7:A8=R8-R9*R7 

1 560  B9=R6-Q9*R7 : B8=B9/A9 : B7=R7-B8*G7 

1590  A7=A8-B8*B9:A6=A7/(D-2) 

1610  FOR  1=1  TO  N 

1620  B(I)=Y(I):A(I)=X(I) 

1640  NEXT  I 

1650  GOSUB  3000 

1660  PRINT 

1670  PRINT"AVE.0F  X" , "AVE. OF  Y" 

1680  PRINT  A1,A2 

1690  PRINT"STD.DEV  X","STD  DEV  Y" 

1700  PRINT  D1.D2 

1710  PRINT"CORRELATION  COEFFICIENT  X-Y:";C9 

1720  PRINT:A9=A2 

1730  INPUT"PRESS  RETURN  TO  CONTINUE" ;Z9$ 

1740  PRINT"THE  FOLLOWING  EQUATIONS  EXPRESS  THE  X,Y" 

1745  PRINT"RELATIONSHIPS" 

1750  PRINT :PRINT"EQUATION  1" 

1770  PRINT"Y=";S9;"X+";I9 

1780  PRINT"%  ACCURACY  OF  Y  VARIANCE  DESCRIPTION^'  ;P9 

1782  PRINT"Y-INTERCEPT=";I9 

1784  PRINT"SL0PE=";S9 

1786  PRINT"F-RATIO=";S9/(A6/(D-2)) 
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1790  PRINT 

1800  FOR  1=1  TO  D 

1810  IF  X(I)<=0  THEN  1890 

1820  A(I)=LOG(X(I)) 

1830  NEXT  I 

1840  GOSUB  3000 

1850  PRINT:PRINT"EQUATION  2" 

1860  PRINT"Y=";S9;"*L0G  X+";I9 

1870  PRINT"%  ACCURACY  OF  DESCRIPTION"  ;P9:  PRINT 

1890  FOR  1=1  TO  N 

1900  A(I)=X(I):IF  Y(I)<=0  THEN  2010 

1920  B(I)=LOG(Y(I)) 

1930  NEXT  I 

1940  GOSUB  3000 

1950  GOSUB  3500 

1954  PRINT 

1955  INPUT'PRESS  RETURN  WHEN  READY" ;Z9$ 
1960  PRINT"EQUATION  3" 

1970  PRINT"LOG  Y=";S9;"*X+" ; 19: PRINT"  OR" 

1990  PRINT"Y=" ; EXP(S9) ;  '>X+" ;EXP( 19) 

2000  PRINT"%  ACCURACY  OF  DESCRIPTION" ;P9 

2010  FOR  1=1  TO  N 

2020  IF  A(I)<=0  THEN  3600: GOTO  2030 

2025  A(I)=LOG(X(I)) 

2030  NEXT  I 

2040  GOSUB  3000 

2050  GOSUB  3500 

2060  PRINT"EQUATION  4" 

2070  PRINT"LOG  Y=";S9;"*L0G  X+" ;I9:PRINT"0R" 

2080  PRINT"Y=" ; EXP( 19) ; "*Xt " : S9 

2090  PRINT"%  ACCURACY  DESCRIPTION" ;P9 

2100  GOTO  3600 

3000  S1=0:S2=0:S3=0:S4=0:S5=0:F0R  1=1  TO  N 

3010  S1=S1+A(I):S2=S2+B(I):S3=S3+A(I)42 

3040  S4=S4+B(I)f2:S5=S5+A(I)*B(I) 

3050  NEXT  I 

3070  Al=Sl/N:A2=S2/N:Vl=(S3-(D*(Alf2)))/(N-l) 

3110  V2=(SA-(D-(A2f2)))/(N-l):Dl=SQR(Vl) 

3120  D2=SQR(ABS(V2)):DO=N*S3-Sl*2:I9=((S2*S3)-(Sl*S5))/DO 

3130  S9^(N*S5)-(Sl*S2))/DO:P9=((S9*S9)*Vl)/V2:C9=SQR(P9) 

3140  P9=100*P9: RETURN 

3500  S7=0:S8=0 

3520  FOR  1=1  TO  N 

3530  E=EXP(I9+S9*A(I)):S8=S8+(Y(I)-E)f2:S7=S7+(Y(I)-A9)*2 

3560  NEXT  I 

3570  P9=100*(1-S8/S7):RETURN 

3600  INPUT"PRESS  RETURN  WHEN  READY" ;Z9$ 

37A0  GOTO  30 

AOOO  REM  CUMLATIVE  BINOMIAL  PROBABILITIES 

A010  F=0 

4020  PRINT"ENTER  THE  #  SUCCESSES, #  TRIALS,  PROB  " 

4025  INPUT"SUCCESS/TRIAL";Y,N,P 

4030  S1=1:F0R  1=1  TO  N 

4040  S1=S1*I:NEXT  I 

4050  FOR  X=0  TO  Y 

4060  S2=1:S3=1 

4070  FOR  1=1  TO  X 
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4080  S2=S2*I:NEXT  I 

4090  FOR  1=1  TO  N-X 

4100  S3=S3*I:NEXT  I 

4110  F=F+Sl/(S2*S3)*PfX*(l-P)f(N-X) 

4120  NEXT  X 

4130  PRINT"THE  CUMULATIVE  BINOMIAL  PROBABILITY; "  ;F 

4140  PRINT"FOR  F(Y;N,,P)  WHERE  Y=" ; Y; "N=" ;N;  "P=" ;P 

4150  GOTO  30 

5000  PRINTCHR$(147) 

5005  PRINT" " 

5010  DX=31/A(D) 

5020  FOR  X=D  TO  1  STEP  -1 

5025  IF  A(X)=A(X-1)  THEN  GOTO  5050 

5030  PRINT  A(X);:PRINT"I"; 

5040  FOR  CT=1  TO  DX*A(X) :PRINT"+"; :NEXT  CT:PRINT"" 

5050  NEXT  X 

5060  PRINT" " 

5070  GOTO  30 

6000  REM  EXPONENTIAL  SMOOTHING 

6020  GOSUB  6500 

6040  GOSUB  7000 

6050  GOSUB  8000 

6060  GOTO  30 

6500  INPUT  "ENTER  SMOOTHING  CONSTANT  (0-l)";A 

6510  INPUT"ENTER  PREDICTION  PERIOD  LENGTH" ;T 

6520  INPUT"ENTER  THE  FIRST  DATA  SET  (9999  TO  END)" ; Yl( 1 , 1 ) : Yl(2 , 2)=Y1( 1 , 1 ) 

6530  S1(1,0)=Y1(1,1):S1(2,0)=Y1(1,1):S1(3,0)=Y1(1,1):N=2:RETURN  BOOK  1160  CBM  64 

7000  REM 

7010  PRINT  N;:INPUT  Y1(N,1) 

7020  IF  Y1(N,1)=9999  GOTO  7200 

7030  S1(1,1)=A*Y1(N>1)+(1-A)*S1(1,0):S1(2,1)=(1-A)*S1(2>0)+S1(1>1)*A 

7050  Sl(3,l)=(l-A)*Sl(3,0)-Sl(2,l)*A:Pl=6*(l-A)42+(6-5*A)*A*T+(A*T)42 

7070  P2=Sl(l,l)/(2*(l-A)f2):P3=6*(l-A)f2+2*(5-4*A)*A*T+2*(A*T)42 

7090  P4=S1(2,1)/(2*(1-A)*2) 

7100  P5=2*(l-A)f2+(4-3*A)*A*T+(A*T)42:P6=Sl(3,l)/(2*(l-A)*(l-A)) 

7110  Y1(N+1,2)=P1*P2-P3*P4+P5*P6:S1(1>0)=S1(1,1):S(2>0)=S(2>1) 

7120  S1(3,0)=S1(3,1):N=N+1:G0T0  7010 

7200  RETURN 

8000  PRINT :PRINT"PERIOD  OBSERVATION  PREDICTION  ERROR" 

8010  PRINT  1 ; Y 1 ( 1 , 1 ) 

8020  FOR  J=2  TO  N-l 

8030  PRINT  J;Y1(J,1);Y1(J,2);Y1(J,2)-Y1(J,1) 

8040  IF  J/12<>INT(J/12)  THEN  8100 

8050  PRINT :INPUT"PRESS  RETURN  TO  CONTINUE" ;A$ 

8060  PRINTCHR$(147):PRINT"PERI0D  OBSERVATION  PREDICTION  ERROR" 

8100  NEXT 

8110  GOTO  30 

8120  END 


MATHEMATICS  complex  roots;  equations  of  degrees  could  also 

Personal  computers  can  be  called  upon  to  per-  be  solved  for. 

form  all  of  the  following:  •  Roots  of  f(x):  a  program  could  find  the  roots  of  a 

•  Solution  of  quadratic  and  cubic  equations:  given  user-defined  function  using  the  bisection  method 

the  coefficients  of  either  a  quadratic  or  cubic  or  Newton's  method. 

equation,  a  program  could  solve  for  both  real  and  •  Vector  operations:  given  two  vectors  in  two  di- 
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Listing  3-3:  The  Vector  Addition  Program 

10 

PRINTCHR$(147)TAB(55)"VECT0R  ADDITION" 

20 

PRINT: PRINT"INPUT  THE   DATA   FOR  THE  ] 

^IRST  VECTOR   IN" 

25 

INPUT"THIS   FORM  -.MAGNITUDE ,  ANGLE"  ;M1 

,A1 

30 

X1=M1*C0S(A1) 

40 

Y1=M1*SIN(A1) 

50 

PRINT"INPUT  THE  DATA   FOR   THE  SECOND 

VECTOR   " 

55 

INPUT"IN  THE  SAME  FORMAT. ";M2,A2 

60 

X2=M2*COS(A2) 

70 

Y2=M2*SIN(A2) 

80 

X=X1+X2:Y=Y1+Y2 

90 

A=ATN(Y/X) 

IOC 

M=SQR(X*X+Y*Y) 

11C 

PRINT   "NEW   VECTOR   MAGNITUDE;  ";M;  "UNITS.  " 

12C 

PRINT" AT  AN   ANGLE  OF" ; A; "DEGREES. " 

13C 

PRINT"(X,Y)   COORDINATE  AT  ENDPOINT= 

=(";X;",";Y;")." 

14C 

PRINT 

15C 

END 

mensions,  a  program  could  calculate  their  mag- 
nitudes, the  angle  between  them,  and  their  dot 
and  cross  products. 

The  program  in  Listing  3-3  calculates  the  sum 
of  two  vectors. 

•  Triangle  solution:  for  a  triangle  with  three  known 
"variables,"  the  lengths  of  the  sides,  the  angles 
between  sides,  and  the  area  could  be  computed. 

•  Curve  solution:  the  arc  length,  central  angle, 
radius,  chord  length,  and  tangent  length  for  a 
curve  could  be  calculated  given  two  known  parts; 
the  area  enclosed  by  these  parts  could  also  be 
calculated. 

•  Arithmetic,  geometric,  and  harmonic  progres- 
sions: a  table  of  elements  for  the  above  three 
progressions  could  be  generated.  The  element 
and  the  sum  of  the  first  n  elements  could  also  be 
determined. 

•  Factors  of  integers,  GCD,  LCM:  the  prime  fac- 
tors of  an  integer,  the  greatest  common  divisor 
(GCD),  and  the  least  common  multiple  (LCM)  of 
two  integers  could  be  determined. 

•  Function  value  table:  a  useful  program  could  print 
the  values  for  a  user-defined  function  over  a 
specified  interval. 

•  Prime  number  table:  a  table  of  prime  numbers  or 


a  test  for  primes  in  a  specified  interval  could  be 
generated. 

•  Partial  sums  and  products:  the  partial  sum  or 
product  of  a  user-defined  function  could  be  com- 
puted. 

•  Interpolation  between  known  values:  Lagrange 
polynomial  interpolation,  or  the  Newton  divided 
difference  method  may  be  performed  to  interpo- 
late values  of  a  function. 

•  Gaussian  integration:  the  integral  of  a  user- 
defined  function  can  be  determined  by  Gaussian 
quadrature. 

•  Solutions  of  differential  equations:  first-order 
differential  equations  may  be  solved  by  a  program 
using  the  Runge  Kutta  method;  a  step  size  may 
be  determined  to  yield  results  within  a  specific 
error  tolerance. 

•  Polynomial  arithmetic:  addition,  subtraction, 
multiplication,  and  division  of  polynomials  may 
be  accomplished. 

•  Polynomial  evaluation:  a  polynomial  (P  )=a  + 
^x  +  a2  x2  +  .  .  .  +  a  x"  may  be  evaluated  at  a 
point  x  with  complex  coefficients.  The  program 
in  Listing  3-4  evaluates  a  polynomial  expression 
at  a  given  point  and  determines  the  first  and 
second  deviatives. 


Listing  3-4:  The  Polynomial  Evaluation  Program 

100  PRINTCHR$(147)TAB(40)"P0LYN0MIAL  EVALUATION  PROGRAM" 
110  PRINT :PRINT"C0MPUTES  VALUE  AT  A  GIVEN  POINT  AND" 
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115  PRINT"1ST  AND  2ND  DERIVATIVES" 

120  PRINT:DIM  B(50) ,Z(509) ,C(50, 2) 

130  E=0 

140  PRINTMENTER  THE  DEGREE  OF  THE  POLYNOMIAL"; 

150  INPUT  X 

160  PRINT"ENTER  THE  COEFFICIENTS  SEPARATELY"; 

170  FORD=0  TO  X 

180  INPUT  B(D) 

190  NEXT  D 

200  PRINT"ENTER  THE  NO.  OF  VALUES  TO  BE  EVALUATED" 

210  INPUT  N:N1=N 

220  PRINT"ENTER  THE  POINTS  SEPARATELY"; 

230  FOR  D=l   TO  N 

240  INPUT  Z(D) 

250  NEXT  D 

260  GOSUB  340 

270  GOSUB   450 

280  E=E+1 

290  GOSUB  340 

300  GOSUB  450 

310  E=E+1 

320  GOSUB  340 

330  GOTO   500 

340  FOR  F=l   TO  Nl 

350  N=Z(F) 

360  GOSUB  400 

370  C(F,E)=H 

380  NEXT  F 

390  RETURN 

400  H=0 

410  FOR  D=0  TO  X 

420  H=B(D)+N*H 

430  NEXT   D 

440  RETURN 

450  FOR  D=0  TO  X 

460  B(D)=(X-D)*B(D) 

470  NEXT   D 

480  X=X-1 

490  RETURN 

500  PRINT 

510  PRINT"POINT  OF  EVAL        EVAL        DERI        DER2" 

520  PRINT 

530  F0RF=1   TO  Nl 

540  PRINT  Z(F),"  ";C(F,0) ,C(F, 1 ) ,C(F, 2) 

550  NEXT  F 

560  PRINT 

570  END 


•  Polynomial  root  finding:    Barstow's  method  is  trigonometric  functions  may  be  evaluated  using 

well  suited  for  computer  evaluation  of  quadric  complex  numbers. 

factors  for  polynomials  of  degree  n.  •  Base  conversions:  a  useful  program  could  trans- 
Complex  arithmetic:  addition,  subtraction,  mul-  form  numbers  of  any  real  base  to  another  base, 
tiplication,  division,  squares,  inverses,  and  so  on  •  Graphing  calculations:  the  intervals  to  use  for 
may  be  performed  using  complex  numbers.  proportional  axes  given  the  minimum/maximum 
Complex  trigonometric   functions:   common  values  and  number  of  major  divisions  could  be 
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• 


• 


calculated  and  used  for  plotting  data  manually  or 
with  a  plotter/printer.  Additionally,  conversion 
routines  between  radians,  quadrants,  revolu- 
tions, and  degrees  could  be  provided. 
Coordinate  conversion  between  rectangular  and 
polar  equivalents  may  be  computed  with  these 
formulae: 


The  Solution  of  Simultaneous  Equation 

The  small  computer  can  be  used  to  find  the 
solution  to  a  set  of  simultaneous  equations.  This 
mathematical  operation  has  applications  in  many 
areas  including  business  and  science.  An  example 
of  two  equations  to  be  solved  simultaneously  fol- 
lows: 


where: 


=  Vx2  +V2 
=  arctangent  (y/x) 
=  r  •   cosine  (A) 
=  r  •   sine  (A) 


Cartesian  coordinates 


=  abscissa  ^ 

=  ordinate  J 

=  magnitude  of  ray  jPo,ar  coordinates 

=  angle  (in  degree  s)J 


5X=4Y  +  24 
2.5Y=6X  -  4 

If  the  equations  are  solved  simultaneously,  a  value 
will  be  found  for  X  and  Y  such  that  both  equations 
will  be  correct.  The  number  of  simultaneous  equa- 
tions that  can  be  solved  by  the  program  in  Listing 
3-5  is  limited  only  by  the  available  memory  in  the 
computer. 


Listing  3-5:  The  Simultaneous  Equation  Solver  Program 

100  PRINTCHR$(147)TAB(45)"SIMULTANE0US  EQUATION  SOLVER" 

110  PRINT: PRINT"THE  NUMBER  OF  VARIABLES  EQUALS  THE" 

115  PRINT"NUMBER  OF  EQUATIONS." 

120  PRINT :PRINT"THERE  MUST  BE  MORE  THAN  ONE  EQUATION" 

130  REM  THE  ARRAYS  MAY  BE  REDIMENTIONED  TO 

140  REM  ACCOMMODATE  ANY  NO.  OF  EQUATIONS 

150  REM  LIMITED  ONLY  BY  AVAILABLE  MEMORY 

160  DIM  M(30,30),P(30),L(30) 

170  INPUT"ENTER  NUMBER  OF  VARIABLES"  ;Z 

180  FOR  E=l  TO  Z:F0R  D=l  TO  Z 

190  PRINT"EQUATION  #" ;E;" , VARIABLE  #";D; 

200  INPUT  M(E,D) 

210  NEXT  D:PRINT"CONSTANT  FOR  EQN  #";E; 

220  INPUT  L(E):NEXT  E 

230  FOR  E=l  TO  Z-l 

240  L=ABS(M(E,E)):B=E 

250  FOR  D=E+1  TO  Z 

260  IF  ABS(M(D,E))<L  THEN  280 

270  B=D:L=ABS(M(D,E)) 

280  NEXT  D 

290  IF  L=0  THEN  550 

300  IF  B=E  THEN  390 

310  FOR  D=l  TO  Z 

320  G=M(B,D) 

330  M(B,D)=M(E,D) 

340  M(E,D)=G 

350  NEXT  D 

360  V=L(B) 

370  L(B)=L(E) 

380  L(E)=V 

390  FOR  D=E+1  TO  Z 

400  T=M(D,E)/M(E,E) 

410  FOR  C=E+1  TO  Z 
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420  M(D,C)=M(D,C)-T-"-M(E,C) 

430  NEXT  C 

440  L(D)=L(D)-T*L(E) 

450  NEXT  D 

460  NEXT  E 

470  IF  M(Z,Z)=0  THEN  550 

480  E=Z-1:P(Z)=L(Z)/M(Z,Z) 

490  U=0:F0R  D=E+1  TO  Z 

500  U=U+M(E,D)*P(D) 

510  NEXT  D 

520  P(E)=(L(E)-U)/M(E,E) 

530  E=E-1:IF  E>0  THEN  490 

540  GOTO  570 

550  PRINT:PRINTMEQUATIONS  ARE  UNSOLVEABLE" 

560  GOTO  610 

570  PRINT:PRINT 

580  FOR  E=l  TO  Z 

590  PRINT"VARIABLE  F ;E;"=";P(E) 

600  NEXT  E: PRINT 

610  INPUT  "TRY  AGAIN  ( 1=YES , 2=N0)M ;N 

620  PRINT:PRINT 

630  IF  N=l  THEN  PRINT:GOTO  170  ' 

640  END 


Integral  Evaluation  Plotting  Mathematical  Functions 

Among  the  many  methods  used  for  computer  With  a  little  ingenuity,  the  TAB  function  may 

evaluation  of  integrals  is  Simpson's  Rule:  be  used  to  produce  crude  plots  of  trigonometric  and 


other  functions.  Try  this  "one-liner" 
f(x)dx  _  h/3[f(a)+4f(a+h)+2f(a+2h)+4f 

(a+3h)+  .  .  .  +2f(a+(n-2)h)+4f  10     FOR  X=0  TO  6.28  STEP  .25:PRINT 

(a+(n-l)h)+f(b)]  TAB  (SIN(X)*30+30);"*":NEXT  X 


The  plotter  program.  The  program  in  List- 

,         ,  b-a         ,  ,         , .  ing  3-6  is  a  general  purpose  plotting  routine  de- 

where  h  =   and  n  =  number  of  iterations        .        ,,         S.1.K        £.         & 

n  signed  for  use  with  a  printer.  1  hree  types  of  plots 

may  be  made:  two-dimensional,  three-dimensional, 
(as  n  increases,  accuracy  increases)  .     .  .         ,  .         A^  ^^         ^  ■^ 

and  simultaneous  plots.  Lines  40-80  explain  how 

The  trapezoidal  approximation  is  another  al-     functions  to  be  plotted  are  to  be  entered  into  the 

gorithm  used  with  computers.  program. 


Listing  3-6:  The  Plotter  Program 

10  PRINTCHR$(147)TAB(55)"PLOTTER" 

20  PRINT: PRINT"PL0T  UNCTIONS  IN  2D, 3D  OR  SIMULTANEOUSLY" 

30  PRINTMR0TATE  OUTPUT  90  DEGREES  FOR  ACTUAL  PLOT" 

40  PRINT"THE  FUNCTIONS  DEFINED  IN  LINES  1000  TO" 

50  PRINT"3000  OF  THIS  PROGRAM  MAY  BE  CHANGED.  TO" 

60  PRINT"D0  SO,  STOP  THE  PROGRAM  AND  ENTER  YOUR" 

70  PRINT"0WN  FUNCTIONS,  BEING  SURE  TO  USE  THE" 

80  PRINT"SAME  FORMAT  ALREADY  USED  IN  THOSE  LINES" 

90  PRINT"(E.G.  LINE  1000  Y  IN  TERMS  OF  X,  LINE" 

100  PRINT"2000  Yl  IN  TERMS  OF  X,  ETC." 

110  PRINT -.PRINT:  PRINT 
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120  PRINT"SELECT:  1)  2D  PLOT,  2)  3D  PLOT,  3)  END" 

130  INPUT  A 

140  ON  A  GOTO  160,520,150  . 

150  END 

1.60  PRINT"SELECT:  1)  PLOT  1  FUNCTION,  2)  PLOT  2  FUNCTIONS  SIMULTANEOUSLY" 

170  INPUT  A 

180  F1=A 

190  PRINT"ENTER  MIN.  X  VALUE,  MAX.  X  VALUE,  AND" 

195  PRINT"X  INCREMENT  (SEPARATED  BY  COMMAS)" 

200  INPUT  E,F,D 

210  PRINT"ENTER  MIN.  Y  VALUE,  MAX.  Y  VALUE"; 

220  INPUT  H,G 

230  Y1=36/(G-H) 

240  PRINT"Y  MIN:";H;"  Y  MAX:  M;G;"  INCREMENT: ";Y1 

250  PRINT 

260  PRINT  TAB(4)HTAB(36)G 

270  FOR  B=l  TO  38 

280  PRINT"+"; 

290  NEXT  B 

300  PRINT 

310  FOR  X=E  TO  F  STEP  D 

320  PRINT  X;":"; 

330  GOSUB  1000 

340  IF  Fl=l  THEN  380 

350  GOSUB  2000 

360  IF  Y>Y1  THEN  PRINT  TAB(Y142)"*";TAB(Y*Y1)"#":G0T0  370 

365  PRINT  TAB(Y*Yl)"#";TAB(Ylt2)"*M 

370  GOTO  390 

380  PRINT  TAB(Y*Yl);"*,f 

390  NEXT  X 

400  GOTO  120 

520  REM  3D  PLOT 

525  A$="*" 

530  E=5 

540  V=25 

550  G=. 707106 

560  C=961 

570  PRINTMENTER  X  INCREMENT"; 

580  INPUT  IN 

590  FOR  X=-30  TO  30  STEP  IN 

600  A=0 

610  B=l 

620  D1=E*INT(SQR(C-Xt2)/E) 

630  FOR  Y=D1  TO  -Dl  STEP  -E 

640  Z=SQR(X*2+Yt2) 

650  GOSUB  3000 

655  Z=INT(V+Z-G*Y) 

660  IF  A$="*"  THEN  A$="+":GOTO  670 

665  A$="*" 

670  IF  Z<=A  GOTO  730 

680  A=Z 

690  IF  Z=B  THEN  IF  Z=F  THEN  IF  A$="*"  THEN  A$="+":GOTO  700 

695  A$="*" 

700  PRINT  TAB(Z)A$; 

710  IF  B=l  THEN  F=Z 

720  B=0 

730  NEXT  Y 
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740 

PRINT  "" 

750 

NEXT  X 

770 

SOTO  120 

1000 

Y=ABS(SIN(X)) 

1001 

RETURN 

2000 

Y1=ABS(C0S(X)) 

2001 

RETURN 

3000 

Z=30*(EXP(-Z*Z/100)) 

3001 

RETURN 

Determining  the  Equation  of  a  Line 

The  program  in  Listing  3-7  accepts  (x,y)  data 
points  and  uses  linear  regression  to  determine  the 
equation  of  the  line  that  best  fits  (describes)  the 
data.  Applications  are  numerous.  For  instance,  if 
you  were  on  a  weight-loss  plan  and  inputted  values 
for  your  weight  versus  amount  of  exercise  or 
calorie  intake,  the  program  could  find  the  equation 
of  a  line  that  best  fits  this  data.  Thus,  you  could 
input  a  value  for  one  variable  (for  example,  calorie 
intake)  and  receive  a  corresponding  value  (for 


example,  weight)  for  the  other  variable.  Other 
areas  that  could  be  analyzed  include  stock  price 
versus  Dow  Index,  miles  traveled  versus  gallons 
used,  distance  versus  time,  and  heating  costs  ver- 
sus outside  temperature.  This  program  uses  the 
least  squares  method  of  linear  regression. 

Solving  for  Corresponding  Values 

Given  two  points  of  a  line  linear  interpolation 
can  be  used  to  solve  for  y  values  corresponding  to  a 
given  x  value.  Although  this  method  is  not  as  accu- 


Listing  3-7:  The  Line  Equation  Calculator  Program 

1  PRINTCHR$(147)TAB(50)"LINE  EQUATION 

CALCULATOR' 

':  PRINT 

2  PRINTMMAY  BE  USED  TO  DESCRIBE  A  SET 

OF  DATA" 

3  PRINTMAND  DETERMINE  A  CORRESPONDING 

POINT  FOR" 

4  PRINTMANY  ENTERED  POINT" 

5  PRINT 

10  INPUTMENTER  A  NAME  FOR  THE  FIRST  SET  OF  DATA"; 

A$ 

20  INPUT"ENTER  A  NAME  FOR  THE  2ND  SET 

OF  DATA";B$ 

72  PRINT"ENTER  X,Y  PAIRS  SUCCESSIVELY 

SEPARATED 

BY 

COMMAS." 

75  PRINTMENTER  0,0  TO  END" 

76  N=l 

80  INPUT  X,Y 

90  IF  (X=0)AND(Y=0)THEN  200 

110  N=N+1 

120  PRINTMSET  N0.:M;N 

130  A=A+X 

140  B=B+X*X 

150  C=C+Y*Y 

160  D=D+Y 

170  E=E+X*Y 

180  GOTO  80 

200  N=N-1 :M=(E*N-D*A)/(B*N-A*A) 

210  V= ( D*B-E*A ) / ( B*N- A* A ) 

220  PRINTCHR$(147):REM  CLEAR  SCREEN 

230  PRINT"Y=";M;"X+";V 

240  PRINT"ENTER  A  VALUE  F0R";A$;M  TO  RECEIVE  A  CORRESPONDING" 

250  PRINT"VALUE  FOR  ";B$ 

260  INPUT"ENTER  9999  IF  YOU  WANT  VICE- 

-VERSA"; A 

270  IF  A=9999  THEN  GOTO  350 

280  PRINT 

290  PRINTffY=";M*A+V 
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300 

GOTO  < 

240 

350 

REiM 

390  PRINTCHR$(147) 

400 

PRINT 

:PRINTflX=M 

-1/M; 

»*Y+f 

;V/M 

420 

PRINT 

'ENTER  A  VALUE  FOR  "; 

B$;"  TO 

RECEIVE  A  CORRESPONDING" 

430 

PRINT 

'VALUE  FOR 

M;A$ 

440 

PRINT 

'ENTER  9999  FOR 

VICE- 

VERSA" 

450 

INPUT 

A 

460 

IF  A=< 

5999  THEN  350 

470 

PRINT' 

'THE  VALUE 

FOR  X 

=";(A 

-V)/M 

480 

PRINT 

490  GOTO  i 

420 

rate  as  the  least  squares  linear  regression  method, 
it  can  be  used  in  situations  in  which  the  correlation 
coefficient  is  high. 


y  =  y    + 


(x,  -  x.) 


where:      x  ,y   =  coordinates  of  first  point  on  the 
line 
x,,,y   =  coordinates  of  second  point  on 
the  line 
x  =  abscissa  of  point  to  he  inter- 
polated 
y  =  ordinate  of  the  point  on  the  line 
with  x 


Computer  Calculus 

Long  perceived  as  merely  number  crunchers, 
computers  are  now  moving  into  the  realm  of  elegant 
mathematics.  Computer  algebra  programs  are  now 
available  for  personal  computers.  These  programs 
can  manipulate  abstract  symbolic  mathematical  ex- 
pressions and  have  the  ability  to  do  virtually  ev- 
erything taught  in  the  first  two  years  of  university 
mathematics.  They  can  factor  polynomials,  simplify 
expressions,  differentiate  functions,  solve  equa- 
tions, expand  functions  into  a  Taylor  series,  invert 
matrices,  and  even  integrate  functions,  as  a  coup  de 
grace.  An  outgrowth  of  the  MACSYMA  program 
developed  on  large  mainframe  computers,  muMath 
is  a  rewritten  version  capable  of  running  on  virtu- 
ally any  Z80  or  8080  microcomputer.  A  simplified 
version  (called  Picomath)  has  also  been  written  in 
BASIC  to  run  on  just  about  any  personal  computer. 


Both  programs  are  marketed  by  the  Microsoft 
Corporation,  10700  Northup  Way,  Bellevue,  WA 
98004,  and  should  be  seriously  considered  for  pur- 
chase by  professionals  who  must  have  reliable 
solutions  to  mathematical  problems  and  by  stu- 
dents of  mathematics.  Examples  of  symbolic  com- 
puter algebra  produced  by  the  muMath  program 
appear  below,  and  demonstrate  that  their  programs 
are  approaching  true  artificial  intelligence  capa- 
bilities: 


Factor  x25  4-  1: 

(x-  1)  (x1  -x'+x2 
x5  +  1) 


x  +  1)  (x20  -  x1' 


+  x10 


Integrate 


2x 


x^  +  1 


log  (x2  -  x  +  1)         log  (abs(x  +  1)) 


atan  ( ■ 


6 

2x  -  1 

V3 


V3 

Expand  x  I  I  (1  -  x11)24 
n   =  1 

x  -  24X2  +  252xJ  -  1472x4  +  4730X5  +  .  . 


Determinant  of 


X3 

x2 

X 

1 

y3 

r 

y 

1 

z3 

Z" 

z 

1 

w3 

w2 

w 

1 

98 


-  (k-w)  (y-w)  (y-x)  (z-w)  (z-x)  (z-y) 

Calculate  30! 
2652528598121910586363084800000000 

MATHEMATICAL  RECREATIONS 
AND  PROGRAMMING  CHALLENGES 

Interesting  mathematical  problems  and  ideas 
to  implement  on  your  computer  include  the  follow- 
ing. 

Using  probability  to  forecast  the  out- 
come of  a  sporting  event.  For  example,  an  equa- 
tion expressing  the  probability  that  a  stronger  team 
will  win  in  a  seven  game  series  is 

p4  +  4p4q  +  10p3q2  x  +  10p2q2(l-x)p 

where  p  =  probability  that  stronger  team  will  win 
(s*-5) 


q  =  probability  that  weaker  team  will  win 

(=1-P) 

x  =  conditional  probability  particular  to  a 
sport  for  example,   for  basketball  this 
value  has  been  calculated  to  be  =  .408) 
For  further  information  see  Mathematics  Magazine, 
Sept. -Oct.  1975,  pp.  187-192. 

The  program  in  Listing  3-8  can  help  in  pre- 
dicting the  outcome  of  the  World  Series  (or  other 
seven-game  series)  if  you  can  estimate  (that  is, 
guess)  the  probability  of  a  given  team  winning  each 
of  the  seven  games  based  upon  such  factors  as  game 
location,  opposing  pitchers,  and  other  rational  or 
irrational  hunches.  For  further  discussion  consult 
"The  World  Series  Competition,"  Journal  of  the 
American  Statistical  Association  47,  Sept.  1952,  pp. 
335-80. 

Solving  mathematical  puzzles.  Puzzles 
such  as  the  following  can  probably  be  solved  with 


Listing  3-8:  The  World  Series  Predictor  Program 

10  PRINT  CHR$(147)TAB(49)"W0RLD  SERIES  PREDICTOR" 

20  DIM  P(20),F(20),T(20),G(20) 

30  PRINT"ENTER  THE  GAME  PROBABILITIES  FOR  ALL" 

35  PRINT  "SEVEN  GAMES  IN  DECIMAL  FORM  (E.G.,  USE" 

40  PRINT  "'.40'  FOR  '40%')" 

50  REM  THE  USER  MUST  DETERMINE  INDIVIDUAL  GAME  PROBABILITIES 

55  REM  (NATIONAL  VS.  AMERICAN  LEAGUE) 

60  REM  ON  THE  BASIS  OF  PITCHERS,  HUNCHES,  WHERE  PLAYED,  ETC. 

65  REM  PROGRAM  DETERMINES  OUTCOME  OF  A  1000  GAME  SERIES  TO 

66  REM  PREDICT  THE  SERIES  OUTCOME 
70  FOR  X=l  TO  7: INPUT  P(X):NEXT  X 

74  PRINT  "WAIT  WHILE  I  PLAY  1000  GAMES" 

75  PRINT: PRINT"THIS  COULD  TAKE  A  WHILE..." 

80  N=0:A=0:F0R  X=l  TO  7:IF  RND(0)<P(X)  THEN  100 

90  A=A+1:IF  A=4  THEN  140 

95  IF  A<>4  THEN  110 

100  N=N+1:IF  N=4  THEN  170 

110  NEXT  X 

140  A1=A1+1:G(N+A)=G(N+A)+1:G0T0  190 

170  N1=N1+1:F(N+A)=F(N+A)+1 

190  T(N+A)=T(N+A)+1 

195  IF  INT(N1+A1)=500  THEN  PRINT  CHR$( 147)TAB(  210)"HANG  IN  THERE..." 

200  IF  N1+AK1000  THEN  80 

210  PRINT  "SERIES  #   TOTAL   NATIONAL   AMERICAN" 

220  FOR  X=4  TO  7:PRINT  X ,T(X) ,F(X) ,G(X) 

230  NEXT  X -.PRINT"       " 

240  PRINT  "TOTALS:", "1000", N1,A1:PRINT 

245  PRINT  "SIMULATED  1000  GAME  SERIES  RESULTS  ABOVE" -.PRINT 

250  PRINT  "AVE.  LENGTH  OF  SERIES  IS  "; (4*T(4)+5*T(5)+6*T(6)  +  7*T(7)  )/1000 

260  END 
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the  use  of  brute-force,  trial  and  error  computer 
techniques  only— if  they  can  be  solved  at  all: 

•  Find  three  distinct  right  triangles  with  the  fol- 
lowing properties: 

A.  Are  pythagorean  (all  three  sides  are  inte- 
gers) 

B.  The  perimeters  of  the  three  triangles  are 
equivalent 

C.  The  areas  of  the  triangles  are  in  arithmetic 
progression 

•  Find  the  smallest  solution  in  positive  integers  x 
and  yofx2  —  n'y2^!  where  n  =  61 

•  Find  how  many  ways  the  integer  10,000  can  be 
expressed  as  a  sum  of  distinct  positive  integers 
(ignoring  permutations). 

•  Find  the  minimum  value  of  the  gamma  function, 
gamma  (n)=(n— 1)! 

for  an  integer  n  in  the  range  1<  n  <2. 

Puzzles  that  are  simpler  to  solve  include  such 
popular  logic  games  as 

•  Instant  Insanity™  blocks:  five  blocks  with  dif- 
ferent colors  on  each  side  must  be  arranged  so 
that  all  five  blocks  in  a  row  have  the  same  colors 
on  each  side.  The  computer  could  determine  all 
possible  solutions.  (7,962,624  possible  combi- 
nations exist  and  there  are  192  solutions.) 


•  The  High  I.Q.  Game  consists  of  a  board  in  the 
shape  of  a  cross  with  markers  in  every  hole  ex- 
cept the  center  hole.  The  player  jumps  markers 
with  adjacent  markers  as  in  checkers  and  then 
removes  the  one  jumped  over.  Markers  may  not 
be  moved  unless  a  jump  is  possible.  The  object  of 
the  game  is  to  jump  all  the  markers  on  the  board, 
leaving  only  one  final  marker;  this  is  difficult  to 
accomplish.  The  computer  could  determine  the 
strategy  for  winning  the  game  and  the  number  of 
different  ways  possible  to  win  (is  there  only  one 
method?).  A  mathematical  analysis  of  this  game 
appeared  in  The  Journal  of  Recreational  Math- 
ematicsy\o\.  5,  No.  2,  1972  pp.  133-.  The  trian- 
gular version  was  discussed  in  The  Mathematics 
Teacher,  January  1979,  pp.  53-. 

Computing  Pi,  e,  solutions  for  high- 
degree  equations,  and  mathematical  oddi- 
ties. Many  mathematicians  take  delight  in  com- 
puting values  for  irrational  expressions,  determin- 
ing equations  for  special  mathematical  cir- 
cumstances, and  discovering  unusual  properties  of 
specific  numbers.  The  computer  is,  of  course,  use- 
ful in  such  computations. 

Calculation  of  the  value  of  Pi  to  any  number  of 
decimal  places  can  be  accomplished  by  the  BASIC 
program  in  Listing  3-9. 


Listing  3-9:  The  Pi  Calculation  Program 

1    PRINTi:HK$'::147>TRB- 

50>"F] 

CRLi' 

:ULRT 

OR" 

2    PRINT  :pR  I  NT"  THIS    <l 

IRNPLE 

PR00RRN    DEMON? 

ITRRTES    " 

3    FR I  NT" 'ITERATIVE' 

TECHN] 

QUES 

BY    REPEATEDLY" 

4   FRIHT"CRLCULRTING 

THE    Vf 

ILUE   i. 

:if  it 

(PI> 

TO    FIVE" 

5    PR I NT "DEC  I MRL    PLRi 

;es.     j 

T    REC 

WIRE 

S    30 

000    " 

6   PR  I NT" LOOPS. " 

7    PRINT'-fflKKKPRESS   ANY    KEY 

TO    BE 

■gin:; 

'":■■ ' ' 

8    GETR$:  IFR$=,M,THENf 

! 

3    PR I NT" IT 

10    S=0"-V=-1  --R~l 

11    FOR    U=l    TO    10000 

20    L-IOOOO 

30    T=2*R-1 

40   V=-1*V 

50    S=S+V/T 

60    N=N+1 :R=R+1 

70    L:=L+ 1 0000  :  I F   L>  1 1 00000 

GOTO 

30 

SO    PRINT    N,4*S 

90    NEXT    II 

100   END 

100 


Pi  can  be  calculated  using  this  successive  ap- 
proximation: 

tj.  =  4  -  4/3  +  4/5  -  4/7  +  4/9  -  4/11  +  .  .  . 

Similarly,  the  value  of  the  natural  log  e  may  be 
calculated  using  this  successive  approximation: 


x2  ,    x3    ■    x4    , 
=  l+*+2!  +  -3J+  4f  + 


Programs  to  compute  a  Fibonacci  Sequence 
are  also  popular.  The  sequence  is  created  by  adding 
each  previous  term  to  the  term  before  that: 

1,1,  2,  3,  5,  8,  13  .  .  . 

Sunflower  and  daisy  florets,  pinecones, 
pineapples,  the  shells  of  some  mollusks,  and  even 
patterns  of  paving  stones  and  the  mating  habits  of 
bees  and  rabbits  exhibit  properties  given  by  the 
Fibonacci  Sequence.  For  instance,  the  seeds  of 
sunflowers  and  daisies  form  a  pattern  of  two  sets  of 
spirals,  one  clockwise  and  the  other  coun- 
terclockwise. The  numbers  of  spirals  in  the  two 
sets  are  usually  consecutive  Fibonacci  numbers  (for 
example  34  and  55). 

Playing  games.  Interesting  mathematical 
games  for  your  computer  include  the  following: 

•  The  four  color  map  problem:  a  recreation  that  has 
interested  mathematicians  for  many  years  is  to 
prove  that  only  four  colors  are  needed  to  copy  any 
map  in  such  a  manner  that  no  bordering  countries 
are  of  the  same  color.  The  proof  was  ac- 
complished by  a  large-scale,  brute-force  com- 
puter program. 

A  game  based  on  this  fact  could  involve  two 
players  who  attempt  to  force  each  other  to  color 
two  bordering  countries  the  same  color.  In  each 
turn,  a  player  would  choose  any  color  to  apply  to 
any  country  on  a  map  with  random  boundaries. 
Proper  logic  will  ensure  that  one  player  will  lose. 
The  computer  could  serve  as  one  of  the  oppo- 
nents. 

•  Magic  squares  game:  the  magic  squares  game 
pits  the  computer  against  a  human  in  an  attempt 


to  complete  a  magic  square  while  blocking  an 
opponent.  A  magic  square  is  composed  of  smaller 
squares,  each  with  a  separate  number  inside.  The 
numbers  in  the  smaller  squares  in  horizontal, 
vertical,  and  diagonal  rows  sum  to  the  same 
amount.  Opposing  players  could  attempt  to  com- 
plete a  magic  square  in  opposing  directions. 

•  Maze  games:  maze  games  involve  a  randomly 
generated  maze  and  a  computer  controlled  mouse 
that  learns  to  find  its  way  through  the  maze. 

•  Exacto:  this  game  for  young  people  involves  two 
five-digit  numbers  that  have  been  randomly 
selected  by  the  computer.  Players  are  instructed 
to  transform  the  first  number  into  the  second 
through  multiplication,  division,  addition,  or 
subtraction  of  any  other  number  within  a 
specified  range.  The  computer  would  keep  track 
of  all  computations  at  each  stage.  The  players  are 
scored  according  to  speed  or  number  of  opera- 
tions required  to  finish. 

•  Euclid:  in  this  game  (p,q)  represents  a  pair  of 
positive  numbers  such  that  p  is  greater  than  q;  A 
and  B  signify  the  two  players.  Players  alternate 
turns.  Each  turn  consists  of  replacing  the  larger 
of  the  two  numbers  given  to  a  player  by  any 
positive  number  obtained  by  subtracting  a  posi- 
tive multiple  of  the  smaller  number  from  the 
larger  number.  (All  numbers  are  integers).  The 
first  player  to  obtain  zero  for  the  (new)  smaller 
number  is  declared  the  winner. 

A  sample  game  is  shown  below;  (51,30)  is  the 
starting  pair  of  numbers. 

A:(30,21)  B:(21,9)  A: (9, 3)  B:(3,0)  B  wins 

or  the  game  could  have  been 

A:(30,21)  B:(21,9)  A:  (12,  9)  B:(9,3) 
A:  (3, 9)     A  wins 

•  The  Two  Move  Game:  in  the  first  half  of  this 
game,  the  two  players  secretly  enter  four  non- 
negative  numbers  totaling  the  same  number  into 
the  cells  of  a  2  by  2  matrix: 


xl 
x3 


x2       yl 
x4       y3 


y2 

y4 
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The  entries  are  then  exposed  and  a  third  2  by  2 
matrix  is  developed  in  which  the  entries  are  xy .. 
This  final  matrix  is  then  analyzed  by  the  first 
player  who  chooses  a  column  and  tries  to 
maximize.  The  second  player  then  chooses  a  row 
and  tries  to  maximize.  The  player  with  the 
greatest  variation  wins.  A  mathematical  strategy 
exists  to  win  this  game;  can  you  find  it? 

•  Sim:  the  game  of  Sim  involves  a  gameboard  like 
this: 


The  players  take  alternate  turns  drawing  lines 
between  two  points.  The  first  player  to  draw  an 
equilateral  triangle  or  square  loses.  A  math- 
ematical strategy  exists  to  win  this  game. 
•  Life:  this  popular  computer  recreation  was  de- 
vised by  John  Conway,  a  mathematician  at  Cam- 
bridge University.  It  simulates  an  ecological 
system  and  illustrates  the  rise,  fall,  and  changes 
of  a  society  of  living  organisms  as  they  interact 
with  their  environment  and  each  other.  The  game 
begins  with  a  small  population  of  organisms;  as 
time  progresses  (measured  in  terms  of  genera- 
tions), the  population  experiences  one  of  three 
fates:  it  dies  out  due  to  over  or  underpopulation, 
it  becomes  stable,  or  it  oscillates  in  a  repeating 


pattern.  Each  member  of  the  population  has  one 
of  three  fates  during  each  generation.  It  can  die 
from  "starvation,"  give  birth  to  another  or- 
ganism, or  survive  in  a  stable  form. 

The  game  board  is  a  grid  of  arbitrary  size, 
often  larger  than  20  x  20.  Each  square  on  the  grid 
may  be  occupied  by  one  organism  or  empty. 
Thus,  each  organism  always  has  eight  surround- 
ing squares.  It  will  die  if  it  touches  fewer  than 
two  or  more  than  three  occupied  squares.  If  three 
occupied  squares  touch  an  empty  square,  a  new 
occupant  is  born  to  fill  that  square.  Births  and 
deaths  are  evaluated  simultaneously. 

When  the  game  of  Life  is  written  in  machine 
language,  it  will  progress  at  speeds  faster  than 
one  generation  per  second  and  can  create  a  fas- 
cinating display  of  computer  graphics.  The 
course  of  a  population  through  the  first  few  gen- 
erations is  shown  in  Fig.  3-1. 

Computing  probabilities.  You  could  use 
your  computer  to  calculate  the  following  prob- 
abilities. 

•  Poker  Probabilities:  you  could  compute  the  prob- 
ability that  m  *  n  cards  held  by  a  defender  in  a 
bridge  hand  will  be  split  m  and  n,  or  the  prob- 
abilities for  obtaining  a  certain  hand  in  poker  after 
certain  cards  have  been  played. 

•  Birthdays:  in  a  classroom  of  24  students,  how 
many  would  you  estimate  have  the  same  birth- 
day? The  chances  are  slightly  better  than  even 
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Fig.  3-1 .  The  course  of  a  Life  population  through  nine  generations. 
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that  2  or  more  students  will  have  birthdays  on  the 
same  date,  counter  to  our  intuition!  For  a  given 
number  of  people,  x,  the  percent  chance  that  2  or 
more  will  have  the  same  birthday  is  given  by 


%  chance  =  100  -  100 


/365-x\ 
\  365    / 


Write  a  BASIC  program  to  calculate  the  percent 
chance  of  coincident  birthdays  for  any  input  of  x, 
the  number  of  people  in  the  group  considered. 

•  An  Apocalyptic  Possibility:  an  equation  ex- 
pressing the  probability  of  an  accidental  nuclear 
missile  launch  by  the  United  States  or  the  Soviet 
Union  falsely  triggering  World  War  III  is  as  fol- 
lows: 

PA  =  l-(i_P)<N<u+s> 

where  PA=Probability  of  the  Apocalypse  (for 
percent  chance,  multiply  PA*  100) 
U=total  number  of  strategic  missiles  in  the 

U.S.  arsenal  (2000  est.) 
S=Total  number  of  strategic  missiles  in  the 

Soviet  arsenal  (2300  est.) 
P=Probability  of  accidental  launching  of  a 
nuclear  missile  by  either  side  during  a 
24-hr.  period  (1F-8  estimated) 
N=Number  of  days  under  consideration  (20 

years  —7, 300  days) 
Write  a  BASIC  program  to  consider  dif- 
ferent values  for  U,  S,  P,  and  N. 

Calculating  useful  information.  You  can 
use  your  computer  to  figure  out  practical  informa- 
tion such  as  the  following: 

•  Easter:  a  program  to  calculate  the  date  of  Easter 
for  any  year  would  make  use  of  the  fact  that 
Easter  falls  on  the  first  Sunday  following  the 
arbitrary  Paschal  Full  Moon,  which  does  not 
necessarily  coincide  with  a  real  or  astronomical 
moon.  The  Paschal  Full  Moon  is  calculated  by 
adding  1  to  the  remainder  obtained  by  dividing 
the  year  by  19  and  applying  the  information  given 
in  Table  3-1. 


Table  3-1.  The  Paschal  Full  Moon  Date. 

1-Apr  14 

6- Apr  18 

11 -Mar  25 

16-Mar  30 

2-Apr  3 

7-Apr  8 

12- Apr  13 

17-Apr  17 

3-Mar  23 

8-Mar  28 

13- Apr  2 

18-Apr  7 

4-Apr  11 

9- Apr  16 

14-Mar  22 

19-Mar  27 

5-Mar  31 

10- Apr  5 

15- Apr  10 

Thus,  for  the  year  2000,  the  key  is  6,  or 
April  18.  A  program  to  calculate  the  day  of  the 
week  (see  the  Business  and  Financial  Applica- 
tions chapter)  could  then  indicate  that  April  18, 
2000  is  a  Tuesday.  Note:  If  the  Paschal  Full 
Moon  falls  on  a  Sunday,  Easter  is  the  following 
Sunday.  The  earliest  Easter  can  fall  is  March 
23rd  and  the  latest  is  April  25th. 
•  Horizons:  the  distance  to  the  horizon  in  miles  is 
approximately  =  V  1.5h,  where  h  =  elevation 
above  sea  level  in  feet.  Write  a  BASIC  program 
to  draw  a  mountain  and  print  the  miles  to  the 
horizon  for  viewers  located  at  100  foot  intervals. 

Creating  artistic  patterns.   You  can  use 

your  microcomputer  to  generate  interesting,  artis- 
tic patterns  such  as  Pascal's  art.  As  described  in  the 
December  1966  issue  of  Scientific  American,  Pas- 
cal's triangle  may  be  used  to  generate  artistic 
geometric  patterns.  A  sample  Pascal  triangle  is 
shown  below;  each  number  in  the  successive  rows 
is  generated  by  adding  the  two  numbers  above  and 
to  the  immediate  left  and  right  of  the  number  in 
question. 

1 

1   1 

1  2  1 

13  3  1 

14  6  4  1 

1  5  10  10  5  1 

To  write  a  BASIC  program  to  generate  pat- 
terns using  the  triangle  you  could,  for  instance, 
represent  all  odd  numbers  by  an  X  and  all  even 
numbers  by  a  space.  Print  the  results  on  a  line 
printer;  a  variety  of  interesting  geometrical  pat- 
terns involving  triangles  will  be  formed. 
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Chapter  4 


Technical  and  Scientific  Applications 


Personal  computers,  rather  than  their  large-scale 
counterparts,  are  increasingly  being  used  by  tech- 
nicians and  scientists  for  problem  solving.  They 
offer  the  advantages  of  ease  of  use,  low  cost,  and 
greater  portability.  Although  many  large  scale  sci- 
entific problems  are  best  left  to  supercomputers, 
the  personal  computer  has  become  an  asset  in  its 
own  right  in  all  types  of  laboratories. 

In  this  chapter  I  will  examine  the  ways  per- 
sonal computers  have  been  put  to  scientific  and 
technical  use.  The  personal  computer  can  help  to 
rid  the  professional  or  amateur  scientist  of  the 
mathematical  drudgery  that  is  so  much  a  part  of  the 
discovery  process.  It  can  rapidly  and  accurately 
solve  problems,  many  of  which  would  not  have 
previously  been  undertaken  because  of  their  sheer 
magnitude. 

Many  of  these  applications  are  specialized;  the 
purpose  of  this  chapter  is  to  touch  upon  just  a  few  of 
the  most  commonly  used  scientific  applications, 
provide  sources  for  further  information,  and  dem- 
onstrate some  solutions  in  BASIC.  Due  to  space 
restrictions,   formulas  and  in-depth  coverage  of 


each  application  is  impossible,  but  this  information 
should  be  readily  available  in  standard  reference 
manuals. 

WEATHER  FORECASTING 

Forecasting  the  weather  is  usually  thought  to 
be  a  task  for  large  computers  only.  However,  local 
weather  forecasting  can  be  accomplished  with  sur- 
prising accuracy  by  taking  note  of  wind  direction 
and  barometric  changes.  A  chart  in  use  by  local 
weather  bureaus  has  been  based  upon  these  two 
parameters  and  could  easily  be  computerized.  This 
data  could  be  input  automatically  by  the  use  of 
electronic  barometers  and  wind  direction  instru- 
ments. 


Wind  change 

Barometric 
condition 

Forecast 
code 

From      To 
S          SW 
S          SE 

7 
3 
4 
9 

L 
E 
F 
M 
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Bai 

rome 

trie 

Forecast 

D. 

Wind  change 

conditi 

ion 

code 

From      To 

E. 

NE        SE 

3 
4 
5 

G 
H 
J 

F. 

G. 
H. 

6 

K 

I. 

9 

M 

N          E 

3 

I 

J. 

4 

A 

K. 

9 

N 

to  the  West 

8 

0 

NW       SW 

1 
2 

c 

B 

L. 

3 

D 

M. 

7 

L 

If  a  forecast  is  not  listed  for  the  proper  barometric 
condition,  enumerated  below,  other  factors  must  be 
used  to  provide  the  forecast. 

Barometric  Conditions 

(IN  INCHES  Hg) 

1.  30.1  or  more  and  steady 

2.  30.1-30.2  rising  rapidly 

3.  30.1  or  more  falling  slowly 

4.  30.1  or  more  falling  rapidly 

5.  30.0  or  less  falling  slowly 

6.  30.0  or  less  falling  rapidly 

7.  30.0  or  less  rising  slowly 

8.  29.8  or  less  rising  rapidly 

9.  29.8  or  less  falling  rapidly 

A  rapid  change  is  considered  to  be  over  .06 
inches  per  hour.  30  inches  Hg  =  760  mm  Hg. 

Forecasts 

A.  Summer  rain  probable/12-24  hours.  Winter 
rain  or  snow,  increasing  wind;  bad  weather 
often  sets  in  when  barometer  begins  to  fall  and 
winds  set  in  from  the  N.E. 

B.  Fair,  followed  within  two  days  by  rain. 

C.  Continued  fair,  no  decided  temperature 
change. 


N. 


O. 


Fair  for  two  days  with  slowly  rising  tempera- 
tures. 

Rain  within  24  hours. 
Wind  increasing,  rain  within  24  hours. 
Rain  within  12-18  hours. 
Wind  increasing,  rain  within  12  hours. 
Summer  light  winds,  rain  may  not  fall  for  sev- 
eral days.  Winter  rain  within  24  hours. 
Rain  will  continue  for  1  to  2  days. 
Rain,  with  high  wind,  followed  within  36  hours 
by  clearing,  and  in  winter  by  colder  tempera- 
tures. 

Clearing  within  a  few  hours,  fair  for  several 
days. 

Severe  storm  imminent,  followed  within  24 
hours  by  clearing,  and  in  winter  by  colder 
temperatures. 

Severe  northeast  gale  and  heavy  precipitation, 
in  winter,  heavy  snow  followed  by  a  cold  wave. 
Clearing  and  colder. 


A  cloud  chart  with  forecasts  included  is  also 
useful.  The  forecast  data  for  the  various  types  of 
clouds  could  be  stored  and  a  comparison  made  be- 
tween this  forecast  and  a  forecast  from  the  above 
chart. 

Other  suggestions  for  applying  a  personal 
computer  to  weather  calculations  include  the  fol- 
lowing. 

1.  Pressure/height  conversions  to  allow  an 
anaeroid  barometer  to  serve  as  an  altime- 
ter. 

2.  Dew  point  temperature  and  relative 
humidity  from  wet  and  dry  bulb  readings. 

3.  Normal  maximum,  mean,  and  minimum 
temperature  degrees  days  for  a  given  date 
and  location. 

4.  Estimates  of  cloud  base  heights  from  dew 
point  and  surface  temperature  observa- 
tions. 

5.  Almanac  data  for  a  given  time  and  date  (for 
example,  declination  of  the  sun,  distance  of 
the  sun  from  the  earth,  phase  of  the  moon, 
and  positions  of  the  planets)  stored  for 
ready  access. 

6.  Analysis  and  display  of  hourly  weather  data 
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Listing  4-1:  The  Temperature  Humidity  Index  Program. 

10 

FR I NTCHR$ (1 47 > TRE ( 40 > * 

'  TEMFERRTURE/HUN 1 1)  I  TV    I HDEX    CRLCULRTOR  " 

2d 

REM   DETERMINES   THE    EFFECTIVE    TEMPERATURE 

38 

PRINT: INPUT" ENTER    THE 

RELATIVE 

HUMIDITY" ;H 

40 

IF    H>34   THEN    fl~@ : GOTO 

79 

45 

IF    H>89    RND    H<95    THEN 

F!:~2  :  GOTO 

70 

39 

IF    H>73   RND   HO0   THEN 

fl=4 : GOTO 

70 

55 

IF    H>63   RND   HK89    THEN 

R=6  :  GOTO'. 

"0 

69 

IF   H>59   RND   H<70    THEN 

R:=--10;GOTC 

i    70 

65 

fl=14 

70 

INFUT"ENTER   THE   TEMPERATURE    IN 

deg.f";t 

80 

TH==.8*T+15-FI 

90 

PR I  NT" THE   TEMPERRTURE 

HUM ID IT V 

INDE^'VJTH 

100   PRINT 

110   END 

derived  from  a  phone  line  connected  with  a 
weather  data  channel. 

7.  Temperature  humidity  index  and  relative 
humidity  calculations.  The  program  in 
Listing  4-1  determines  the  effective  tem- 
perature given  the  relative  humidity  and 
the  actual  temperature. 

8.  Wind  chill  factor  calculations.  To  calculate 
the  wind  chill  factor,  use  the  following  for- 
mula: 

H  =  (.14  +  .47  V)  (36.5-T) 

where  H  =  chill  in  calories  lost  per  square  cen- 
timeter of  skin  per  second 
V  =  wind  velocity  (m/sec.) 
T  =  Temperature  (°C) 

The  program  in  Listing  4-2  converts  dry  bulb 
temperature  in  °F  and  wind  speed  in  mph  to  ap- 
parent wind  chill  temperature. 


THE  SUNDIAL  DESIGN  PROGRAM 

Use  the  program  in  Listing  4-3  to  compute  the 
correct  angles  to  use  in  constructing  a  sundial  for 
your  latitude. 

The  style  should  be  set  so  that  it  lies  in  a  north 
south  direction  as  shown  in  Fig.  4-1.  The  top  edge 
points  to  the  North  star,  equal  to  the  latitude  in 
degrees  above  the  horizon.  The  program  gives  you 
the  angles  to  use  in  graduating  the  scale  for  each 
hour. 

ENERGY  EFFICIENCY  COMPUTATION 

You  can  use  your  small  computer  to  make  the 

following  studies. 

•  A  computerized  statistical  comparison  between 
the  water  temperature  in  a  solar  energy  system 
and  the  outside  temperature,  the  angle  of  the  sun, 
and  so  on  could  serve  to  evaluate  the  efficiency  of 
a  home  solar  energy  system.  Analog  to  digital 


Listing  4-2:  The  Wind  Chill  Calculator  Program 

10 

PRINTCHR$( 147) ;TAB( 50)"WIND 

CHILL  CALCULATOR" 

20 

PRINT 

"ENTER  TEMPERATURE  IN 

FAHRENHEIT" 

25 

INPUT 

T 

30 

PRINT 

"ENTER  WIND   SPEED  IN 

M.P.H." 

35 

INPUT 

V 

40 

T1=T:V 

=(V*1609.35)/3600:TC= 

33-((T-32)*(5/9)) 

50 

H=(10.45+(SQR(V)*10)-V)*TC: 

X=H-506.784 

60 

IF   X<C 

)  THEN   X1=T1:G0T0  80 

70 

Xl=50- 

-(X/12.3):X1=INT(((X1* 

10)+5)/10) 

80 

PRINT: 

PRINT"WIND  CHILL  TEMP 

=";X1;"   DEGREES   FAHRENHEIT" 

90 

END 
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Listing  4-3:  The  Sundial  Design  Program 

35    F 

■R I  NT"  IT 

.1 UO 

PRINT    " 

E-'UNDIRL    : 

JESIGH 

FRGGRRP 

1" 

110 

REN   CONFUTES    HE" 

;essfir't 

RNGLEi 

.    FOF- 

VOUR 

L  HI- 

I TUDE 

120 

PRINT    " 

ENTER   VOUR    LRTJ 

TUDE" 

130 

INPUT    H 

140 

PRINT    " 

:UT    fl    ST' 

r'LE    SUi: 

H    THRT 

THE 

UPPER 

ED  G 

E    NHKE 

S    RH 

RNGLE" 

150 

PRINT    " 

'JF  " ;  R.i " 

DEGREE 

S    WITH 

THE 

ERSE. 

1 

160 

S^SII-KR 

:■ 

170 

fr-l 

180 

FOR   E=l 

:>   TO   30   : 

5TEF    11 

1 90 

T=TRN<B 

200 

C=S*T 

210 

tf=tf+l 

228 

PRINT    " 

"IT"  .;n;  "0 

CLUCK, 

THE    HI- 

OLE 

SHOULD    BE 

",'RTN': 

C>*37 

. 23578 

230 

REN    IN 

STRTEMEN' 

r   220   1 

"HE    CON:: 

iTRNT 

5  / »  2 '. 

,cj  i  :: 

IS    US 

;ed  tc 

CONVERT 

240 

REN    FRO 

■■1   RRHIRN. 

z>    TO    HE 

.GEEES. 

250 
260 

NEXT    B 
END 

Fig.  4-1.  The  Moorish  sundial. 
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converters  could  be  used  to  gather  the  informa- 
tion automatically. 
•  Those  of  you  considering  the  installation  of  a 
solar  system  might  want  to  do  another  statistical 
analysis  of  the  heating  requirements  for  your 
home  based  on  Btu/hr  times  the  number  of  hours 
that  your  furnace  operates  during  the  heating 
season.  The  size  of  a  solar  system  necessary  to 
heat  your  house  can  then  be  calculated  using  this 
data  and  the  manufacturer's  efficiency  data. 
In  the  central  U.S.  on  June  21,  the  maximum 
solar  energy  striking  the  earth  is  290  Btu/square 
foot  (approximately  15  hours  in  the  day).  On  De- 
cember 21,  the  solar  energy  is  a  maximum  of  220 
Btu/square  foot  (approximately  9  hours  in  the  day). 
Thus,  you  can  compute  average  values  for  the  vari- 
ables in  the  formula  below. 

Solar  collector  B*h*s*m 

Btu  output  ~~  2 

where  B  =  Btu/sq  ft 
h  =  hrs/day 
s  =  sq.ft  of  collector 
m  =  max.  efficiency 

Keep  in  mind  that  it  takes  500  Btu  to  heat  water  at 
ground  temperature  (40°F)  to  100°F  and  that  the 
desired  water  temperature  for  home  use  is  120°F. 

•  The  answer  to  "How  much  fuel  can  be  saved  by 
turning  the  thermostat  down  from  70°F  to  60°F 
at  night?"  may  be  determined  using  this  equa- 
tion: 


A  = 


.0625  (n-l)W 


where  A  =  amount  of  heat  (Btu) 

W  =  the  normal  heat  loss/hr.  (Btu) 
n  =  the  number  of  hours  of  discon- 


tinued heating 
z  =  the  number  of  hours  from  the  be- 
ginning of  reheating  until  the  house 
is  at  an  acceptable  temperature 

•  To  find  the  heat  loss  of  your  home,  use  the  for- 
mula 

kA(t-t!)T 


H  =- 


where 


H 
K 


A  = 


=  heat  transmission  (Btu) 
=  coefficient  of  thermal  conduction 
(Values  for  the  type  of  construction 
used  in  your  home  may  be  found  in 
builder's  manuals) 
=  exposed  area 
(t-t1)  =  temperature  difference  between 
inside  and  outside  (°F) 
T  =  duration  of  exposure  (hours) 
d  =  thickness  of  walls  (inches) 

•  To  calculate  fuel  requirements  use  the  formula 


C  = 


H(ta-tb)N  x  S  x  q 
100,000  x  (ti-to) 


where  C  =  fuel  cost 

H  =  heat  loss/hr. 

t    =  outside  temperature 

t.  =  inside  temperature 

t   =  average  inside  temperature 

t    =  average  outside  temperature 

N  =  number  of  hours  of  heating  required 

S  =  number  of  units  of  fuel 

q  =  cost  per  unit  of  fuel 

The  program  in  Listing  4-4  calculates  esti- 
mated costs  for  heating  your  home  with  gas,  oil,  and 
electricity.  Be  sure  to  enter  your  heat  loss  in 
British  thermal  units,  not  degrees. 


Listing  4-4:  The  House  Heating  Program 

10  PRINTCHR$(U7)TAB(45)"H0USE  HEATING  EVALUATION  PROGRAM" 

100  PRINT 

110  PRINTnTHE  PURPOSE  OF  THIS  PROGRAM  IS  TO  " 

115  PRINT"C0MPUTE  THE  RELATIVE  EFFICIENCY  OF  " 

120  PRINT"HEATTNG  A  HOME  WITH  ELECTRICITY,  GAS,  " 

130  PRINT"0R  OIL.  IT  WILL  BE  NECESSARY  TO  CONTACT" 

140  PRINT"THE  DISTRIBUTORS  OF  THE  ABOVE  FUELS  TO" 
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150  PRINT"MAKE  A  COST  COMPARI-" 

155  PRINT"SON.  THERE  ARE  OTHER  FACTORS  TO 

160  PRINT"CONSIDER  WHEN  EVALUATING  THE  COST  FOR  " 

170  PRINT"HEATING  (I.E.  THE  AMOUNT  OF  INSULATION" 

180  PR INT" YOU  HAVE),  BUT  THE  RATIOS  BETWEEN 

190  PRINT"DIFFERENT  FUELS  SHOULD  BE  CONSISTANT." 

195  PRINT :PRINT"USE  THE  COST  EFFICIENCIES  THE  PROGRAM" 

196  PRINT"COMPUTES  ALONG  WITH  THE  COST  OF  THE" 

197  PRINT"HEATING  SYSTEM  TO  DETERMINE  WHICH  YOU" 

198  PRINT"SHOULD  CHOOSE." 

200  INPUT  "ENTER  ESTIMATED  HEAT  LOSS  PER  HOUR  ";H 

205  REM  THIS  MAY  BE  APPROXIMATED  USING  FORMULA  ON  PAGE  136 

210  PRINT"IF  YOU  KNOW  THE  EFFICIENCY  OF  THE  OIL  " 

220  PRINT"BURNING  SYSTEM,  PLEASE  ENTER  THE  VALUE," 

230  INPUT"OTHERWISE  ENTER  '0'";B 

240  IF  B=0  THEN  B=.8:G0T0  250 

245  B=B*.01 

250  INPUT"ENTER  THE  AVE.  #  OF  COLD  MONTHS/YEAR" ;C 

260  C=C*720 

270  PRINT" AT  WHAT  TEMPERATURE  WILL  YOU  SET  THE" 

275  INPUT"THERMOSTAT";D 

280  PRINT"WHAT  IS  THE  AVERAGE  OUTSIDE  WINTER  " 

285  INPUT"TEMPERATURE  IN  YOUR  LOCATION" ;E 

290  REM  COMPUTE  HEAT  LOSS  PER  HOUR 

300  X=((D-E)/70)*((H*C)/(U0000*B)) 

310  PRINT"WHAT  IS  THE  AVE.  PRICE/GAL.  OF  OIL  IN  " 

315  PRINT"YOUR  AREA— IF  NOT  KNOWN,  ENTER  'OfM 

320  INPUT  F 

330  IF  F=0  THEN  F=.5 

340  PRINT"YOU  WILL  REQUIRE  AN  ESTIMATED  ";X 

345  PRINT"GALLONS  OF  OIL— COST=";X*F 

350  PRINT"ENTER  THE  COST  PER  KILOWATT  HOUR  IN  " 

355  INPUT  "YOUR  AREA  IN  DOLLARS" ;G 

360  PRINT"ELECTRICITY  TO  RUN  THE  OIL  PUMP  MAY" 

365  PRINT"COST  UP  TO  " ;206*G;" DOLLARS" 

370  PRINT"IF  YOU  KNOW  THE  EFFICIENCY  OF  THE  " 

375  PRINT"NATURAL  GAS  HEATER  PLEASE  ENTER,  " 

380  INPUT"OTHERWISE  ENTER  '0'";B 

390  IF  B=0  THEN  B=.8:G0T0  400 

395  B=B*.01 

400  Y=((D-E)/70)*((H*C)/(100000*B)) 

410  PRINT"WHAT  IS  THE  COST  PER  THERM  IN  YOUR  AREA" 

415  INPUT  I 

420  PRINT"YOU  WILL  REQUIRE  AN  ESTIMATED  ";Y;"  THERMS  TO  HEAT/COST=$";I*Y 

430  Z=((D-E)/70)*(H*C)/3405 

440  PRINT"AND  AN  ESTIMATED"  ;Z;"KH  WILL  BE  REQUIRED  TO  HEAT  WITH" 

450  PRINT"ELECTRICITY— COST=$";Z*G 

460  PRINT: PRINT"SUMMARY:" 

470  PRINT"MEDIUM" , "AMOUNT" , "COST" 

480  PRINT"OIL",:FT=X:GOSUB  1000:FT=X*F:G0SUB  1000:PRINT"" 

490  PRINT"NATURAL  GAS"; :FT=Y:GOSUB  1000:FT=I*Y:G0SUB  1000:PRINT"" 

500  PRINT"ELECTRICITY";:FT=Z:GOSUB  1000:FT=Z*G:G0SUB  1000:PRINT"" 

510  PR  INT"  REMEMBER  THAT  THESE  VALUES  ARE  ONLY" 

520  PRINT"ESTIMATES  AND  WILL  DIFFER  ACCORDING  TO" 

530  PRINT"THE  INSULATION,  BUILDING  MATERIAL," 

540  PRINT"FURNISHINGS,  AND  CLIMATE." 

550  END 

1000  FT$=STR$(FT) 
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1020  FOR  J=l  TO  LEN(FT$) 

1040  PRINT  MID$(FT$,J,1); 

1050  IF  MID$(FT$,J,1)="."  THEN  GOTO  1100 

1060  NEXT 

1065  PRINT"."; :G0T0  130 

1070  GOTO  1170 

1100  F0RK=(J+l)T0(J+2) 

1110  PRINT  MID$(FT$,K,1); 

1120  NEXT 

1130  L=LEN(FT$)-J 

1140  IF  L<1  THEN  PRINT"00"; 

1150  IF  L=l  THEN  PRINT"0"; 

1170  RETURN 


Listing  4-5:  The  Air  Conditioning  Program 

10  PRINTCHR$(1^7)TAB(40)"AIR  CONDITIONING  REQUIREMENT  CALCULATOR" 

20  PRINT :PRINT"DETERMINES  THE  BTU  RATING  FOR  AN  AIR  " 

25  PRINT"CONDITIONER/HEATER  FOR  YOUR  HOME" 

30  PRINT :PRINT"ENTER  THE  ESTIMATED  TOTAL  SQURE  FEET" 

35  INPUT"OF  EXTERIOR  WALL  AREA  FOR  YOUR  HOUSE"  ;W 

40  PRINTMENTER  THE  ESTIMATED  TOTAL  GLASS  AREA" 

45  INPUT"FOR  YOUR  HOUSE" ;G 

50  PRINT"ENTER  THE  ESTIMATED  TOTAL  AREA  WITHIN" 

55  INPUT"THE  ROOF  CROSS-SECTION" ;R 

60  INPUT"ENTER  THE  NUMBER  OF  OCCUPANTS" ;N 

70  BTU=W*5+G*35+R*12+N*100+2000 

80  PRINT"THE  ESTIMATED  BTU  NECESSARY  TO  HEAT/AIR" 

85  PRINT"CONDITION  YOUR  HOME=";BTU 

90  PRINT 

100  END 


Listing  4-6:  The  Electric  Cost  Analysis  Program 

10  PRINT  CHR$(147);TAB(45)"ELECTRICITY  COST  ANALYSIS" 

20  INPUT"ENTER  COST  PER  KWH  IN  $";C 

30  PRINT  "FOR  NEXT  APPLIANCE,  SELECT  1)WATTS" 

35  INPUT"2)V0LTS+AMPS";X 

40  ON  X  GOTO  50,70 

50  INPUT"WATTS";W 

60  GOTO  90 

70  INPUT"VOLTS,AMPS";V,A 

80  W=V*A 

90  PRINTMENTER  APPROXIMATE  NO.  HOURS  PER  DAY  " 

95  INPUTnTHIS  APPLIANCE  IS  USED";H 

100  KW=(H*360*W)/1000 

110  PRINT"THIS   APPLIACNE  USES  APPROXIMATELY  " 

115  PRINT   INT(KW);"   KILOWATT  HOURS" 

120  PRINT"PER   YEAR,    AT  AN   ANNUAL  COST  OF   $";KW-C 

130  PRINT:GOTO  30 


•  To  calculate  the  Btu  rating  for  an  air  conditioner  ancj  determine  where  cuts  in  electric  bills  would 
for  your  home,  use  the  program  in  Listing  4-5.  best  be  made. 

•  Use  the  simple  program  in  Listing  4-6  to  track  the  •You  can  use  additional  formulas  available   in 
yearly  cost  of  operation  for  electrical  appliances  building  manuals  to  compute  the  savings  of  in- 
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stalling  insulation  or  the  area  of  a  solar  collector 
necessary  to  heat  a  house  of  certain  dimensions 
and  construction. 

TECHNICAL  AND  SCIENTIFIC  CALCULATIONS 

The  computer  can  be  used  to  perform  calcula- 
tions needed  by  those  involved  in  many  fields  from 
navigation  to  chemistry. 


Aviation 

The  private  or  business  pilot  will  find  the  fol- 
lowing calculations  useful.  Some  are  designed  for 
portable  programmable  calculators  so  that  pro- 
grams may  be  used  while  in  flight. 

1.  Flight  plan  with  wind  allowances  calculation  of 
the  heading,  speed,  fuel,  ETA,  and  so  on  for  a 
trip  of  multiple  legs  could  be  done. 

2.  Long-range  flight  plan:  calculations  could  be 
done  for  great  circle  routes  and  could  include 
distance,  time,  fuel,  source. 

3.  Atmosphere,  speed,  temperature  and  altitude: 
from  pressure  altitude,  a  program  could  calcu- 
late the  speed  of  sound,  temperature,  pressure 
and  density  relative  to  standard  sea  level. 

4.  Prediction  of  freezing  level  and  lowest  usable 
flight  level. 

5.  Wind  components  and  average  vector: 
crosswind  and  tail  or  head  wind  components  of 
a  single  wind  vector  could  be  calculated. 

6.  Dead  reckoning  of  position. 

7.  Great  circle  flying  navigation. 

8.  Course  correction  to  fly  correct  path. 

9.  Rhumbline  navigation. 

10.   Unit  conversions:  length,  volume,  weight,  En- 
glish and  metric  temperature  conversions. 

°F  =  (9/5)  (°C+32°) 
°C  =  (5/9)  (°F-32°) 

Several  BASIC  programs  and  additional  infor- 
mation on  aviation  calculations  may  be  found  in 
Computers  for  Sea  and  Sky  by  Steven  J.  Rogowski, 
Creative  Computing  Press,  Morristown,  N.J. 
07960. 


Marine  Navigation 

Some  of  the  following  applications  are  de- 
signed for  use  with  programmable  calculators  as 
well  as  pocket  or  lap  computers  so  that  they  can  be 
used  aboard  a  small  vessel. 

1.  Time-speed-distance  with  current  sailing:  a 
useful  program  could  solve  time-speed- 
distance  equations  and  could  consider  the  cur- 
rent in  determining  the  proper  course  to  steer 
and  the  speed  through  the  water  necessary  to 
reach  a  given  destination  in  a  specified  length 
of  time. 

2.  Distance  short  of,  beyond,  or  to  a  horizon:  a 
program  could  calculate  the  distance  to  the 
apparent  horizon  as  well  as  the  distance  to  and 
visibility  of  an  object  of  known  height. 

3.  Velocity,  VMG,  and  current  vectors:  given  two 
of  the  following,  1)  drift  and  set  of  the  current, 
2)  speed  and  course  through  the  water,  3) 
speed  and  course  made  good,  a  program  could 
calculate  the  unknown  value. 

4.  Running  fix  from  two  objects:  a  program  could 
calculate  a  fix  of  a  vessel  from  bearings  of  two 
objects. 

5.  Planet  location.  A  program  could  estimate  the 
altitude  and  azimuth  of  the  four  navigational 
planets.  The  GMT  (Greenwich  mean  time)  of 
twilight  could  also  be  calculated  or  manually 
inputted. 

6.  Rhumbline  and  great  circle  navigation  calcula- 
tion. 

7.  Sight  reduction  calculation. 

8.  Length  conversions,  (for  example,  nautical 
miles  to  statute  miles) 

9.  Vector  addition. 

10.  Estimated  time  of  arrival. 

11.  Conversion  of  compass  points  to  degrees. 

12.  Area  navigation  by  VOR  (very-high-frequency 
omnirange) 

13.  Rhumbline  navigation. 

14.  Dead  reckoning  of  position. 

15.  Great  circle  computations. 

16.  Distance  from  VOR/OMNI. 

17.  Course  correction. 

18.  Distance  by  two  bearings. 
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Listing  4-7:  The  Great  Circle  Navigation  Program 

10  PRINT  CHR$(147);TAB(42)"GREAT  CIRCLE  NAVIGATION  CALCULATIONS" : PRINT 

20  PRINT  "ENTER  SOUTHER  LATITUDES  AND  EASTERN" 

25  PRINT"LONGITUDES  AS  NEGATIVE  NUMBERS ." : PRINT 

30  PRINT"ENTER  LATITUDE  AND  LONGITUDE  OF  " 

35  INPUT  "STARTING  POINT" ;U,W 

40  PRINT"ENTER  LATITUDE  AND  LONGITUDE  OF" 

45  INPUT"ENDING  POINT" ;Z,R 

50  PRINT:M=. 01745329 

60  A=SIN(U-M)-SIN(Z^-M)+COS(U^M)-COS(Z-;'-M)-"-COS((R-W)-M) 

70  D=60*(-ATN(A/SQR(-A*A+1))+1.5708)*57. 29579 

80  C=(SIN(Z^)-(SIN(U--M)-C0S(D/60-M)))/(SIN(D/6O-M)-;;-COS(U-"-M)) 

90  H=(-ATN(C/SQR(-C-;'"C+1 )  )  +  l .  5708)-57  .  29579 

100  F=SIN(R-W) 

110  IF  F>=0  THEN  H=360-H 

120  PRINTMTHE  DISTANCE  IS  ";D;"  NAUTICAL  MILES" 

130  PRINT"AT  A  BEARING  OF  ";INT(H);"  DEGREES." 


19.  Conversions  between  knots,   miles,   statute- 
miles,  kilometers. 

20.  Speed  computation  given  distance  covered  and 
time. 

Many  of  the  above  navigation  calculations  are 
explained  in  Computers  for  Sea  and  Sky,  by  Steven 
J.  Rogowski,  Creative  Computing  Press,  Morris- 
town,  N.J.  07960. 

The  program  in  Listing  4-7  computes  the  dis- 
tance in  nautical  miles  and  bearing  between  two 
points  on  earth.  Enter  starting  and  ending  latitudes 
and  longitudes  as  decimal  degrees. 

Medical  Calculations 

Doctors,  nurses,  technicians  and  other  medi- 
cal personnel  may  find  the  following  calculations 
useful. 
1.   Conversions  of  weight,  length,  and  volume  to 
other  units,  or  English  to  metric  conversion. 
Lung  diffusion  calculations. 
Blood  acid-base  status  determination. 
Beer's  law  calculation. 

Protein  electrophoresis:   given  integration 
counts  of  a  number  of  protein  fractions,  the 
percentage  of  each  may  be  found. 
Body  surface  area  estimation. 
Oxygen  saturation  and  content.  Oxygen  con- 
tent and  saturation  in  the  blood  may  be  found 


2. 
3. 
4. 
5. 


given  p02,  pC02,  pH,  and  body  temperature. 

Publications  containing  computer  programs 
and  applications  of  use  to  the  health  professional 
include 

Computer  in  Biology  and  Medicine 

Computers  in  Medicine 

Medical  Computer  Journal  42  East  High  St., 

East  Hampton,  CT  06424 

Physicians  Microcomputer  Report  P.O.    Box 

6483,  Lawrenceville,  NJ  08648 

Surveying  Calculations 

Those  involved  in  surveying  could  utilize  the 
following  calculations. 

1.  Azimuth/bearing  traverse:  given  reference 
coordinates,  leg  length,  azimuth  or  bearing, 
and  quadrant,  the  endpoint  coordinates,  de- 
parture, latitude,  and  total  distance  may  be 
computed. 

2.  Slope  reduction  determinations. 

3.  Point  of  intersection  calculation. 

Chemistry 

Chemists  and  chemistry  students  may  find  the 
following  calculations  useful. 
1.   Calculation  of  requirements  to  produce  a  given 
solution.  The  program  in  Listing  4-8  will  do  the 
calculations  for  vou. 
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Listing  4-8:  The  Stock  Solution  Computation  Program 

10  PRINTCHR$(147)TAB(50)"ST0CK  SOLUTION  COMPUTATION" 

20  PRINT :PRINT"COMPUTES  THE  AMOUNTS  OF  STOCK  SOLUTION  AND  WATER  NECESSARY  TO" 

30  PRINT"PRODUCE  A  GIVEN  SOLUTION" 

40  PRINT :PRINT"ENTER  THESE  VALUES: CONCENTRATION  OF" 

45  PRINT"WORKING  SOLUTION .CONCENTRATION  OF  STOCK" 

50  INPUT"SOLUTION, TOTAL  AMOUNT  OF  SOLUTION" ;PW, PS ,QT 

60  OS=(PW*QT)/PS 

70  W=QT-OS 

80  PRINT"THE  QUANTITY  OF  STOCK  SOLUTION^' ;0S 

90  PRINT"THE  QUANTITY  OF  WATER  TO  ADD=";W 

100  PRINT:PRINT 

110  END 


2.  Calculations  of  the  following  parameters,  given 
adequate  inputs:  pH,  molality,  total  atomic 
weights,  gas  density  and  pressure,  electron 
energies,  gravimetric  factors,  liquid  pressure, 
degree  of  saturation,  gram  equivalent  weight, 
normality,  percent  composition,  mole  fraction, 
mole  percent,  and  ionic  strength  dilution  fac- 
tor. 

3.  Plotting/simulation  of  reaction  rates,  electron 
distribution,  and  so  on. 

Physics 

Those  involved  with  physics  will  also  find  the 
computer's  capacity  for  performing  calculations 
useful.  Potential  uses  include  the  following. 

1 .  Plotting  of  potential  energy  functions,  lab  data, 
and  so  on. 

2.  Conversions  of  units. 

3.  Solutions  to  elementary  equations:  velocity, 
acceleration,  momentum,  work,  power,  etc. 

4.  Statistical  analysis  and  data  compilation. 

An  article  discussing  the  use  of  personal  com- 
puters to  physicists  appeared  in  Physics  Today,  De- 
cember 1983,  pp.  25-28.  The  author  states  "it  is 
very  likely  that  most  calculations  in  physics  will  be 
performed  by  the  home  computer  in  the  future," 
because  of  the  benefit  of  independence  from  large 
computer  organizations,  bureaucracies,  and 
economic  constraints.  He  describes  a  Monte  Carlo 
simulation  that  ran  for  about  a  week  on  his  personal 
computer  and  estimated  that  the  same  job  would 
have  cost  $2000  if  run  on  his  university  CPU. 


General  Purpose  Experimental  Applications 

Scientists  in  many  fields  can  use  their  home 
computers  to  perform  the  following  types  of  calcu- 
lations. 

1.  Statistical  analysis  of  data:  useful  statistical 
applications  include  curve  fitting  and  plotting, 
Chi-square  tests,  analysis  of  variance  and  stan- 
dard deviation,  solutions  to  equations,  and  cor- 
relation coefficients. 

2.  Calculation  of  tables  for  a  specific  application: 
functions  that  are  commonly  referred  to,  yet  do 
not  have  reference  tables,  could  be  calculated 
for  a  number  of  values,  and  the  results  dis- 
played in  table  form  for  easy  reference. 

In  addition  to  using  computers  for  calculations, 
scientists  can  interface  microcomputers  to  lab  in- 
strumentation and  develop  automatic  data  log  and 
aquisition  systems.  They  can  also  develop  voice 
input  interfaces  that  could  accept  data  called  out  by 
a  lab  technician  too  busy  to  manually  record  data. 

ENGINEERING  APPLICATIONS 

Professionals  and  hobbyists  will  have  use  for 
computer  programs  in  the  following  engineering 
fields. 

Electrical  Engineering 

Computers  can  help  those  who  deal  with  elec- 
tricity by  performing  calculations  and  analyses,  and 
by  facilitating  design  work. 

Active  high-  and  low-pass  filter  design. 
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Listing  4-9:  The  Low-Pass  Filter  Design  Program 

100  PRINTCHR$(147)TAB(45)"L0W  PASS  FILTER  DESIGN  PROGRAM" 

110  PRINT:PRINTTAB(10)"SHUNT  M-DERIVED  FILTER" 

120  PRINT: INPUT  "ENTER  THE  CUTOFF  FREQUENCY" ;F1 

130  INPUT"ENTER  THE  FREQUENCY  OF  REMOTE  CUTOFF" ;F2 

140  INPUT"ENTER  THE  TERMINATING  RESISTANCE" ;R 

150  L=SQR(1-(F1*F1/(F2*F2)))*R/(3.14159*F1) 

160  Cl=(l-(SQR(l-(Fl*Fl/(F2*F2))))-2)/(4*3.14159*SQR(l-Fl*Fl/(F2*F2))*Fl*R) 

170  C2=SQR(1-(F1*F1/(F2*F2)))/(3.14159*R*F2) 

180  PRINT"THE  VALUE  FOR  L=";L 

190  PRINT"THE  VALUE  FOR  C1=";C1 

200  PRINT"THE  VALUE  FOR  C2=";C2 

210  PRINT 

220  END 


SIMPLE  filters 


L 


:^ 


% 


r>rr>r\ 


O WSr- 


Normalized  to  design   impedance  R0, 
w0=cut-off  angular  frequency  (low- pass  or 
high   pass) 


w0  =  centre  frequency   (band-pass  or  band  stop) 
to*2*uPPer  cut-off  frequency  (band-pass  or  band  stop) 
w|  =lower  cut-off  frequency  (band-pass  or  band  stop) 


•V 


ai0  sJw|   u»2 


Definition- 

x  =  normalized  frequency  parameter*  77- 

v=deviation  parameter =x  (low  pass)s  -  -j  (high  pass) 


v= — —  (band  pass)=  -r^—  (band  stop) 
n  J. .  v 

x    * 


Design^ 


Low- pass   and   high  pass1 


L* 


Band-pass    and  band   stops 
«0JLpCp    *  w0JLsCs  =  I 

L-s=7.CssnC      Lp=nL,  Cp=£- 


Performance' 

A=  attenuation    (dB)= -8-68589 

4>  =  phases-arctanv 


my 


l  +  v* 


Fig.  4-2.  Schematics  and  formulae  for  simple  filters. 
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High-  and  low-pass  filters  may  be  designed  for 
given  center  frequency,  gain,  and  Q  values  for  the 
resistors  and  capacitors  in  the  infinite-gain 
multiple-feedback  circuit.  Listing  4-9  shows  a  pro- 
gram that  performs  these  functions. 

This  program  may  be  modified  and  extended 
for  use  in  designing  simple  filters  by  the  use  of  the 
schematics  and  formula  in  Fig.  4-2. 

Active  bandpass  filter  design.  Second- 
order  active  bandpass  filters  may  be  designed  using 
a  multiple-feedback  network.  Both  high-Q  and 
low-Q  circuits  could  be  designed.  Standard  values 
may  be  selected  for  easy  implementation. 

Chebyshev  and  Butterworth  filter  de- 
sign. Chebyshev  and  Butterworth  low-pass  filters 
may  be  designed  for  specified  filter  order,  termina- 
tion resistance,  and  corner  frequency. 


Resonant  circuits.  The  impedance  and  res- 
onant frequency  could  be  calculated  by  a  program 
for  series  or  parallel  resonant  circuits  whose  com- 
ponent values  are  specified. 

Attenuators.  Component  values  for  T  and  Pi 
impedance  matching  circuits  may  be  found  for 
specified  input/output  impedances  and  desired 
loss.  Minimum-loss  pad  matching  may  be  per- 
formed for  given  impedances. 

T  to  Pi  transformations.  T(Pi)  networks 
may  be  transformed  to  Pi(T)  networks  having  the 
same  characteristics.  A  T  network  design  program 
is  shown  in  Listing  4-10. 

Ladder  network  analysis.  The  input  im- 
pedance for  a  ladder  network  could  be  calculated; 
the  network  may  be  composed  of  any  combination 
of  resistors,  capacitors,  and  inductors. 


Listing  4-10:  The  Network  Design  Program 

100  PRINTCHR$(147)TAB(48)"T-NETW0RK  DESIGN  PROGRAM" 

105  PRINT:PRINT"PR0VIDES  A  GRAPHIC  REPRESENTATION  OF  THE  CIRCUIr 

110  PRINT :PRINT"ENTER  THE  RESISTANCE  OF  THE  CIRCUIT" 

115  INPUT"WITH  OUTPUT  TERMINALS  UNLOADED" ;RI 

120  PRINT"ENTER  THE  OUTPUT  RESISTANCE  WITH  THE" 

125  INPUT"INPUT  TERMINALS  UNLOADED" ;R0 

130  PRINT"ENTER  THE  RESISTANCE  WITH  THE  OUTPUT  " 

135  INPUTffTERMINALS  SHORTCIRCUITED"  ;RN 

140  A=-l 

150  B=R0+1 

160  C=R0*RN-RI 

170  Ql  =  (-B+SQR(B22-4-"-A-C))/(2-;'-A) 

180  Q2=(-B-SQR(B22-4*A-;'-C))/(2-;:-A) 

190  IF  Q1>=0  THEN  R3=Q1:G0T0  200 

195   R3=Q2 

200  R2=R0-R3 

210  RURI-R3 

220  PRINT:PRINT:PRINT 

230  PRINT"T-NETW0RK  CIRCUIT" 

240  PRINT-.PRINT"        Rl 

250  PRINT" 

260  FOR  X=l  TO  3 

270  PRINT"!  ! 

280  NEXT  X 

290  PRINT"R-IN 

300  PRINT" 

310  PRINT" 

320  FOR  X=l  TO  3 

330  PRINT"!  ! 

340  NEXT  X: PRINT" 

350  PRINT:PRINT 
360  END 


R2n 


R-0UT" 

-";R3;"0HM" 
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Coil  properties.  The  inductance  or  number 
of  turns  for  a  single  or  multilayer  coil  may  be  found 
given  wire  diameter  and  dimensions  of  the  coil.  The 
inductance  of  two  parallel,  round  wires,  one  form- 
ing a  return  circuit  is  given  by 

L  =  .0041  [2.303  log10  (2  D/d  -  D/l)] 

where  L   =  inductance  (piH) 

D  =  distance  in  cm.  between  centers  of 

wires 
d  =  diameter  of  wire  (cm) 
1  =  length  of  conductor  (cm) 

Power  transformer  design.  Core  weight 
may  be  calculated  for  a  specified  power  require- 
ment. For  a  specified  core,  area  flux  density,  and 
frequency,  the  number  of  primary  and  secondary 
turns  is  found.  A  BASIC  program  to  design  power 
transformers  may  be  found  in  Electronic  Design 
News,  October  27,  1983,  p.  346. 

Rectifier  circuits.  Full-wave  or  half-wave 
rectifier  circuits  may  be  evaluated  for  given  compo- 
nent values,  input  voltage,  and  frequency.  The  dc 
output  voltage  and  peak-to-peak  ripple  may  also  be 
calculated. 

S  and  Y  parameter  transformations.  A  set 
of  S(Y)  parameters  expressed  as  magnitudes  and 
angles  may  be  transformed  to  a  set  of  Y(S)  parame- 
ters. 

Phase-locked  loops.  Natural  frequency, 
damping  factor,  and  loop  noise  bandwidth  may  be 
found  for  either  passive  or  active  phase-locked 
loops.  Loop  gain  and  component  values  for  the  cir- 
cuits are  required  for  input. 

Transistor  amplifier  design.  Collector  cur- 
rent and  sensitivity  factors  can  be  computed  for 
transistor  circuits  for  specified  current  gain,  supply 
voltage,  and  resistor  values. 

Fourier  series.  Fourier  coefficients  may  be 
computed  for  discrete  values  for  a  periodic  func- 
tion. Sine  and  cosine  coefficients  may  be  found  and 
could  be  used  to  calculate  new  values  of  the  func- 
tion. 

Reactive  L-Network  impedance  match- 
ing. Networks  that  will  match  any  two  complex 


impedances  may  be  determined. 

Bilateral  design,  stability  factor,  maxi- 
mum gain,  and  optimum  matching.  A  program 
could  compute  the  maximum  gain  available  and 
the  load  and  source  reflection  coefficients  that  yield 
the  maximum  gain. 

Frequency  conversion  program.  A  BASIC 
program  to  interconvert  velocity,  period,  wave- 
length, and  frequency  values  could  make  use  of 
these  commonly-used  formulas: 

T  =  1/f 
o)  =  27rf 
X  =  v/f 

f  =  1/T 

f  =  (i)/2tt 

f  =  v/X 

where  T  =  period 

f  =  frequency 
co  =  radian  frequency 
X  =  wavelength 
V  =  propagation  velocity 

Similarly,    frequency  and  reactance  conversions 
may  be  accomplished  with  these  formulae: 


X    = 


\  = 


c   = 


L    = 


f    = 


f     = 


2rriC 

coC 

27rfL    = 

coL 

1 

1 

2*ffc    " 

CdX 

JL  - 

277f 

1 

2t7CXc 

\ 

277-L 


555  timer  circuit  design.  Given  the  fre- 
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quency  duty  cycle  and  either  the  timing  capacitor  or 
resistor,  a  program  could  calculate  the  other  timing 
component,  charge  time,  discharge  time,  and 
period  of  the  commonly  used  555  stable  multivi- 
brator circuit. 

Resonance  calculations.  Resonant  fre- 
quency of  inductance-capacitance  circuit  is  given 
by: 


fr  = 


-RJC 


2ttvTC(L-Rc2C) 


where  L  =  l/(47r¥C) 
C  =  l/(47r2f2L) 
R    =  series  resistance  of  inductor 


Rc  =  effective  series  resistance  of  capacitor 
f  =  resonant  frequency 

Antenna-design.  A  given  frequency  could  be 
inputted  to  a  program  that  would  calculate  the  an- 
tenna dimensions  for  a  dipole,  Yagi,  or  cubical  quad 
antenna.  The  program  in  Listing  4-11  can  be  used  to 
calculate  the  dimensions  for  a  yagi  antenna  to  re- 
ceive television,  radio,  or  amateur  radio  broad- 
casts; the  antenna  is  designed  for  a  specific  fre- 
quency. Such  an  antenna  can  often  receive  signals 
from  distances  not  previously  approached.  If  the 
mathematical  specifications  of  the  antenna  design 
are  unclear,  refer  to  an  electronic  manual  for  a 
picture.  Construction  of  the  antenna  is  not  difficult 
and  should  cost  no  more  than  twenty  dollars. 


Listing  4-11:  The  Yagi  Antenna  Design  Program 

10  PRINTCHR$(147)TAB(45)"YAGI  ANTENNA  DESIGN  PROGRAM" 

20  PR  INT: PR  TNT" INPUT  THE  FREQUENCY  IN  MEGAHERTZ  FOR" 

30  INPUT"WHTCH  THE  ANTENNA  IS  TO  BE  DESIGNED" ;F 

40  PRINT:PRINT:PRINT"FOR";F;"MEGAHERTZ  THE  LENGTHS  OF  THE 

45  PRINT"ELEMENTS  ARE:" 

50  PRINT"ELEMENT  NUMBER"  /'LENGTH  IN  INCHES" 

5 1  A=466 . 667/F : D=A* . 05-A : B= 1 1 . 52*A 
53  W=6*A:X=4.32*A:E=11.28*A 

55  Y=4 . 8*  A : G=3 . 6-A : L=4 . 8*  A 
57  C=11.4*A:Z=11.46*A 

59  R=5*W+X+G+Y+L+.333 

60  PRINT"!",  ,D 
70  PRINT"2",  ,B 
80  PRINT"3",  ,C 
90  PR1NT"4",  ,E 
100  PRINT"5",  ,E 

A 


110  PRINT"6", 

120  PR  I  NT" 7", 
130  PRINT"8", 
140  PRINT"9", 
150  PR  I NT" 10" 


Z 


,E 


160  INPUT"PRESS  RETURN  TO  CONTINUE" ;A$ 

1 70  PR  INT : PRINT : PR  I NT"ELEMENT  SPACING : " 

180  PR1NT"ELEMENT  NUMBER" , "SPACING  IN  INCHES:" 

190  PR  I  NT" 1 -2",  L 

200  PRINT"2-3",X 

210  PRINT"3-4'\W 

220  PRINT"4-5",W 

230  PRINT"5-6",W 

240  PRINT"6-7",G 

250  PRINT"7-8",\ 

260  PRINT"8-9",W 

270  PRINT"9-10",W 

280  PRINT"THE  BOOM  IS" ;C; "INCHES  L0NG( " ;C/12; "FEET  LONG 

290  END 


118 


Decibel  conversion  and  voltage  to  dBm 
conversion.  Voltage  ratio  in  Decibels  is  given  by 


where  E , 


.  =  output  voltage 
=  input  voltage 


/E,s> 


Such  computations  would  be  helpful  to  the  serious 
audiophile.  Also  of  interest  to  the  audiophile  would 
be  a  formula  used  to  compute  the  inductance  of  a 
straight  wound  speaker  wire: 

L  =  .0021  [2. 303  log1()  (41/d)-.75] 
where  L  =  inductance  (yuH) 

d  =  diameter  of  wire  (cm) 
1    =  length  of  conductor  (cm) 

Evaluation  routine  for  a  program  of 
Boolean  function.  AND,  OR,  NOT,  and  the  other 
logic  statements  could  be  evaluated  as  a  program; 
the  circuit  status  at  each  step  would  be  outputted. 

Ohm's  law  calculation.  A  computer  can  be 
used  to  determine  the  unknown  value. 

E  =IR 

where  R  =  resistance  (ohms) 


E  =  voltage 
I   =  current 

Resistor  or  capacitor  color  codes.  An  ideal 
program  for  the  novice  in  electronics  would  output 
the  value  for  a  resistor  or  capacitor  given  the  color 
from  a  component. 

Inductance  Bridge  calculation.  Given  this 
design, 


if  any  three  values  are  known  the  fourth  may  be 
calculated: 


\  =  hWh 

L    =LL/L 

4  2     3         1 

RL  Equivalent  Impedance  Calculation. 

The  program  in  Listing  4-12  will  calculate  equiva- 
lent impedances. 


Listing  4-12:  The  RL  Equivalent  Impedance  Program 

100  PRINTCHR$(147)TAB(50)"RL  EQUIVALENT  IMPEDANCE" 

110  PRINT:PRINT"THIS  PROGRAM  CAN  ANSWER  A  QUESTION  SUCH" 

115  PRINT"AS  'WHAT  IS  THE  EQUIVALENT  IMPEDANCE  OF" 

120  PRINT"A  300  OHM  RESISTOR  AND  A  30  MILLIHENRY" 

125  PRINT"INDUCT0R  AT  A  FREQUENCY  OF  2000  HERTZ?'" 

130  PRINT 

140  INPUT'ENTER  RESISTANCE  IN  0HMS";R 

150  INPUT'ENTER  INDUCTANCE  IN  MILLIHENRIES" ; IND 

160  INPlT'ENTER  FREQUENCY"  ;FR 

170  EQU=(2-"-3.141582^FR^INI^-.001)*(l/SIN(ATN((2*3.141592^FR^IND^.001)/R))) 

180  PRINT"THE  EQUIVALENT  IMPEDANCE=" ;EQU 


Listing  4-13:  The  A/C  Voltage  Divider  Program 

100  PRINTCHR$(1A7)TAB(A5)"A/C  VOLTAGE   DIVIDER  CALCULATIONS" 

110   PRlNTiPRlNTDETERMTNES   THE  MODULUS   AND   PHASE" 

120   INPlT'ENTER   THE  ANGULAR    FREQUENCY"; A 

130   Rl=lK6:R2=0:r 1=0:12=1 /(A-1E-6) 

140  R=(R2-;;-(Rl+R2)  +  I2-(Il  +  T2)/(Rl+R2)-(Rl+R2)  +  (Tl  +  I2)-;:-(Il+I2)) 
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150 

I=(-R1 

>*(I1+I2)+ 

(R1+R2)* 

I2)/((R1+R1) 

2+(Il+I2) 

22) 

16(3 

C=SQR(R22+I22) 

170 

D=180'; 

-ATN(I/R)/3. 14159 

180 

PRINT' 

\ANG.  FR." 

, "MODULUS", , "PHASE" 

190 

PRINT 

A, C,D 

200 

PRINT 

210 

INPUT' 

CALCULATE 

ANOTHER 

(Y/N)";A$ 

220 

IF  A$= 

"Y"  THEN 

120 

230 

END 

A/C  voltage  divider  calculation.  The  pro- 
gram in  Listing  4-13  will  calculate  the  modules  and 
phase  of  the  angular  frequencies  you  enter. 

Logic  circuit  analysis.  The  purpose  of  the 
program  in  Listing  4-14  is  to  simulate  the  operation 
of  a  simple  logic  circuit.  The  circuitry  (gates  and 
connecting  lines  or  nodes)  is  described  to  the  com- 
puter along  with  the  input  states  to  the  circuit  (on 
and  off  are  represented  as  1  and  0  respectively). 
Next,  the  program  determines  what  the  resultant 
states  of  nodes  will  be  throughout  the  circuit  fol- 
lowing all  logic  "decisions."  Essentially,  this  pro- 
gram allows  you  to  design  and  test  a  logic  circuit 
without  breadboarding  it. 

The  program  recognizes  the  following  gates: 
AND,  OR,  INV,  NAND,  exclusive  OR  (abbreviated 
XOR),  and  exclusive  NOR  (abbreviated  XNOR);  up 
to  64  gates  and  255  nodes  may  be  used  in  one 
circuit.  To  begin,  the  program  will  allow  you  to 
input  a  circuit;  answer  1  for  a  new  circuit  to  the  first 
question.  Next,  the  program  will  request  a  label  for 
the  first  gate,  which  may  be  any  gate  in  the  circuit. 
This  label  is  simply  a  distinguishing  number  (any 
number)  you  want  for  the  gate.  Now,  input  the  gate 
type  AND,  OR,  etc.),  and  then  input  the  identifying 
nodes  connected  to  the  gate  (first  the  output  node 
and  then  the  input  nodes).  For  example,  to  describe 
the  illustrated  circuit,  the  following  sequence  could 
be  used: 


V> 


o 


SELECT:         1)  NEW   CIRCUIT 
CIRCUIT  ?1 

ENTER  THE  LABEL?  1 


2)  OLD 


ENTER  THE  GATE?  NOR 
ENTER  THE  NODE?3 
ENTER  THE  NODE?l 
ENTER  THE  NODE?2 
ENTER  THE  NODE?0 

(0  is  used  here  to  mean  go  to  next  gate) 

ENTER  THE  LABEL?2 
ENTER  THE  GATE?INV 
ENTER  THE  NODE?5 
ENTER  THE  NODE?5 
ENTER  THE  NODE?3 
ENTER  THE  NODE?0 

ENTER  THE  LABEL?3 
ENTER  THE  GATE?NAND 
ENTER  THE  NODE?6 
ENTER  THE  NODE?5 
ENTER  THE  NODE?3 
ENTER  THE  NODE?0 

Remember  to  enter  the  output  node  for  each  gate 
first,  followed  by  the  input  nodes. 

After  describing  the  circuit,  the  logic  states  of 
various  nodes  will  be  described.  Simply  type  the 
number  of  the  node  and  its  initial  state  (1  or  0). 
Usually,  only  the  input  nodes  are  described. 

Finally,  the  program  analyzes  the  operation  of 
the  circuit,  outputting  the  state  of  each  node  after 
the  circuit  has  been  completed.  The  circuit  is 
analyzed  according  to  standard  logic  tables.  In  this 
manner,  the  professional  or  hobbyist  can  test  cir- 
cuit operation  without  breadboarding. 

Additional  applications  for  electrical  en- 
gineers. The  following  list  includes  a  number  of 
other  areas  in  which  the  microcomputer  can  make 
the  lives  of  those  who  work  with  electricity  easier. 
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Listing  4-14:  The  Logic  Circuit  Analysis  Program 

10  PRINT  CHR$(147)TAB(45)"L0GIC  CIRCUT  ANALYSIS  PROGRAM" 

30  DIM  F(3000) 

40  FOR  X=l  TO  8 

50  READ  X(X) 

60  NEXT  XrREAD  A1,A2 

70  B$="AND  OR  INV  NANDNOR  XOR  XNOR" 

80  PRINT 

90  PRINT"SELECT:  1) ENTER  A  CIRCUIT" 

100  PRINT"        2) ENTER  SPECIFIED  STATES  FOR  NODES" 

110  PRINT"        3) ANALYZE  CIRCUIT  OPERATION" 

120  PRINT"        4)0UTPUT  THE  STATES  OF  NODES" 

130  PRINT"        5)0UTPUT  THE  CIRCUIT" 

135  PRINT"        6)END  PROGRAM" : INPUT  "SELECT  ONE"; A3 

140  ON  A3  GOTO  150,350,500,1300,1500,1720 

150  PRINT"SELECT:  1)NEW  CIRCUIT,  2)0LD  CIRCUIT  " 

155  INPUT  X:IF  X=2  THEN  190 

160  FOR  A4=8  TO  511 

170  F(A2+A4)=0 

180  NEXT  A4 

190  PRINT 

200  INPUT  "ENTER  THE  LABEL  ";A5:A5=8*A5 

205  IF  A5<=0  THEN  80 

210  FOR  A4=0  TO  7 

220  F(A5+A4+A2)=0 

230  NEXT  A4:A6=0 

240  INPUT  "ENTER  THE  GATE  ";W$ 

250  IF  W$="REDO"  THEN  190 

260  IF  W$="AND"  THEN  A6=l 

261  IF  W$="OR"  THEN  A6=2 

262  IF  W$="INV"  THEN  A6=3 

263  IF  W$="NAND"  THEN  A6=4 

264  IF  W$="NOR"  THEN  A6=5 

265  IF  W$="XOR"  THEN  A6=6 

266  IF  W$="XNOR"  THEN  A6=7 
270  IF  A6=0  THEN  240 

300  F(A2+A5)=A6:A5=A5+1 

310  INPUT"ENTER  THE  NODE  ";A6 

320  IF  A6O0  THEN  300 

330  GOTO  200 

350  PRINT"SELECT:  1)RED0  OR  BEGIN" 

355  INPUT"        2)C0NTINUE  ";X 

360  IF  X=2  THEN  400 

370  PRINT:FOR  A4=l  TO  255 

380  F(A1+A4)=255 

390  NEXT  A4 

400  INPUT"ENTER  THE  NODE  ";A6 

405  IF  A6<=0  THEN  80 

410  INPUT"ENTER  THE  STATE  ";A7 

420  F(A1+A6)=A7 

430  GOTO  400 

500  A8=0 

520  A8=A8+1:PRINT"N0.";A8 

525  A9=0 

530  FOR  A4=l  TO  63 

540  A6=F(A4*8+A2) 

545  IF  A6=0  THEN  950 
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550  ON  A6  GOTO  600,650,700,750,800,850,900 

600  B=0: GOSUB  1180 

610  GOTO  920 

650  B=1:G0SUB  1180 

660  GOTO  920 

700  Bl=F(Al+F(A2+2+8*A4)) 

710  GOSUB  980 

720  GOTO  920 

750  B=0: GOSUB  1180 

760  GOSUB  980 

770  GOTO  920 

800  B=l: GOSUB  1180 

810  GOSUB  980 

820  GOTO  920 

850  GOSUB  1110 

860  GOTO  920 

900  GOSUB  1110 

910  GOSUB  980 

920  IF  B1=F(A1+F(8*A4+1+A2))  THEN  950 

930  A9=l 

940  F(A1+F(A2+8*A4+1))=B1 

950  NEXT  A4 

960  IF  A9=l  THEN  520 

970  GOTO  80 

980  IF  B1>1  THEN  1000 

990  B1=1-B1:RETURN 

1000  B1=257-B1: RETURN 

1110  B2=F(Al+F(8*A4+2+A2)) 

1120  B3=F(Al+F(8*A4+3+A2)) 

1130  IF  B2O0  AND  B<>0  THEN  1140 

1135  IF  B2=0  OR  B=0  THEN  BUB2+B3: RETURN 

1140  IF  B2-1O0  AND  B3-l<>0  THEN  1150 

1142  IF  B2-l=0  OR  B3-U0  THEN  Bl=B3*B2:GOSUB 

1145  RETURN 

1150  Bl=l 

1160  IF  B3=B2  THEN  B1=0 

1170  RETURN 

1180  Bl=l-B 

1190  FOR  B4=2  TO  7 

1200  B2=F(8*A4+B4+A2) 

1210  IF  B2=0  THEN  1260 

1220  B5=F(B2+A1) 

1230  IF  B5<>B  THEN  1240 

1235  IF  B5=B  THEN  B1=B: RETURN 

1240  IF  B1+B50257  THEN  1250 

1245  IF  Bl+B5=257  THEN  B1=B: RETURN 

1250  IF  B5=l-B  THEN  1260 

1255  IF  B501-B  THEN  B1=B5 

1260  NEXT  B4 

1270  RETURN 

1300  A9=l 

1310  FOR  A4=l  TO  255 

1320  IF  F(A4+A1)>1  THEN  1400 

1330  PRINT  A4;M:  ";F(A4+A1) 

1400  NEXT  A4 

1410  PRINT 

1420  GOTO  90 

1500  FOR  A4=l  TO  63 
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1510  A6=F(8*A4+A2+B4) 

1520  IF  A6=0  THEN  1700 

1530  PRINT  A4;TAB(4) 

1540  A9=10:PRINT  MID$(B$ , A6*4-3,4) ; 

1550  FOR  B4=l  TO  7 

1560  A6=F(8*A4+A2+B4) 

1570  IF  A6=0  THEN  1610 

1580  PRINT  TAB(A9);A6; 

1590  A9=4+A9 

1600  NEXT  B4 

1610  PRINT 

1700  NEXT  A4 

1710  GOTO  90 

1720  DATA  1,4,6,9,13,16,19,23,768.1025 


Transistor  configuration  conversion 

Resistive  attenuator  design 

Smith  chart  conversions 

Phase  shift  oscillator  design 

Dc  bias  analysis 

Waveform  limits  determination 

Plotting  of  waveforms 

Plate  resistance/transconductance  calculations 

Gauss  calculations 

Reactance  chart  calculations 

Design  of  controlled  rectifier  circuits 

Integrated  circuit  current-source  design 

Solution  of  resistive  networks 

Rf  amplifier  analysis 

Bipolar  junction  transistor  analysis 

Complex  matrix  calculations  as  used  in  electrical 

engineering 

Wheatstone  bridge  design 


Civil  Engineering 

Civil  engineers  will  find  small  computers  use- 
ful for  performing  the  following  functions. 

•  Moment  of  inertia  calculation 

•  Vector  statics 

•  Section  properties 

•  Stress  on  an  element  or  beam 

•  Static  equilibrium  about  a  point 

Chemical  Engineering 

Chemical  engineers  can  use  small  computers, 
for  the  following: 


•  Ideal  gas  equation  of  state 

•  Conservation  of  energy  calculations 

•  Heat  exchanger  analysis 

•  Curve  fitting 

•  Hydrocarbon  combustion  calculations 


Machine  Design 

Machine  designers  can  use  computers  to  do 
the  following: 

•  Constant  acceleration  calculations,  relation  to 
time  and  velocity. 

•  Kinetic  energy  determination 

•  Critical  shaft  speed  calculation 

•  Cam  design  functions 

•  Gear  and  spring  calculations/design 

•  RPM/torque/power  computation 

•  Tachometer/dwell  meter  calculation:  your  os- 
cilloscope can  be  converted  into  a  tachometer  and 
dwell  meter  in  conjunction  with  your  computer. 
The  following  information  must  be  input  to  the 
computer  to  determine  engine  RPM  and  dwell 
angle: 

a.  Number  of  cylinders  in  the  engine 

b.  Interval  in  milliseconds  for  open  ignition 
points 

c.  Interval  in  milliseconds  for  closed  ignition 
points 

Factors  a  and  b  are  determined  using  the  oscillo- 
scope. (RPM  may  also  be  calculated  using  the  fac- 
tors of  tire  diameter,  gear  ratio,  and  vehicle  speed. ) 

RPM  x  No.  Cylinders 


ignition  pulse  frequency 
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Chapter  5 
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Educational  Applications 


One  of  the  most  important  uses  for  a  personal  com- 
puter is  certainly  education.  The  acronym  CAI, 
which  stands  for  Computer  Assisted  Instruction,  is 
often  used.  Not  only  can  the  computer  serve  as  a 
drill  and  practice  machine  for  teaching  subjects 
ranging  from  the  alphabet  to  Schrodinger  wave 
equations,  but  it  can  teach  the  fundamentals  of  com- 
puter programming  and  prepare  the  learner  for  a 
career  and  for  the  computerized  future. 

Needless  to  say,  we  all  have  memories  of 
learning  addition  and  subtraction,  repeating  spell- 
ing words  until  we  spelled  them  correctly,  and 
memorizing  dates  of  important  historical  events. 
Most  of  us  considered  this  to  be  one  of  the  boring 
essentials  of  elementary  education,  and  our  atten- 
tion span  was  accordingly  short. 

With  the  addition  of  the  computer  to  education, 
this  is  no  longer  the  case.  Although  the  subject 
matter  has  not  changed,  the  method  of  drill  and 
practice  has  become  much  more  entertaining  with 
the  computer.  Countless  studies  have  shown  that 
computerized  education  makes  learning  more  in- 
teresting and  is  more  effective.  The  task  of  learning 


school  subjects  has  become  colorful,  indi- 
vidualized, and  in  some  cases  exciting.  The  stu- 
dents have  instant  feedback  from  the  computer  so 
that  they  know  whether  their  answers  are  right  or 
wrong  and  can  build  from  that  point;  this  kind  of 
immediate  feedback  has  been  shown  to  be  an  effec- 
tive learning  tool. 

Computer  programs  designed  for  drill  and 
practice  are  usually  capable  of  providing  questions 
at  various  levels  of  difficulty.  With  simple  multipli- 
cation, for  example,  problems  with  single  digit, 
double  digit,  or  even  triple  digit  (or  more)  multipli- 
cation can  be  provided.  In  this  way,  the  student 
learns  his  basic  multiplication  tables  before  tack- 
ling 472  x  952.  The  computer  can  either  randomly 
generate  these  problems  or  choose  them  from  a 
large  collection  stored  in  memory.  As  the  student 
masters  a  certain  number  of  problems  at  the  begin- 
ning level,  he  can  advance  at  his  own  pace  to  suc- 
ceeding levels.  If  he  encounters  difficulty  at  a  par- 
ticular level,  the  computer  provides  more  of  the 
same  kinds  of  problems  or  offers  help.  The  com- 
puter can  even  be  programmed  to  remember  what 
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level  a  student  has  achieved  and  can  begin  from  that 
point  the  next  time  he  uses  the  program. 

Each  time  the  student  answers  a  question,  the 
computer  informs  him  whether  the  answer  is  right 
or  wrong.  If  the  answer  is  correct,  the  student  can 
be  awarded  with  a  picture  of  a  smiling  face,  a  color- 
ful, animated  display,  or  an  encouraging  message.  If 
the  student  responds  incorrectly,  the  computer  of- 
fers a  gentle  correction,  which  may  be  humorous  to 
keep  the  learning  experience  enjoyable  rather  than 
painful. 

Computer  drill  and  practice  systems  have  been 
applied  to  every  educational  area  from  preschool  to 
college  level.  Some  programs  make  use  of  a  com- 
puter graphics  for  those  situations  in  which  "a  pic- 
ture is  worth  a  thousand  words."  Newer  systems 
make  use  of  random-access  video  disc  players  in 
which  short  video  segments  can  be  selected  by  the 
computer. 

Certainly  one  of  the  best  ways  to  learn  about 
computer  operation  and  programming  is  to  pur- 
chase a  personal  computer.  Not  only  can  a  child 
learn  how  to  program  computers  to  do  simple  (or 
even  complex!)  tasks,  but  he  can  also  learn  how  to 
think  logically  and  how  to  draw  conclusions  based 
on  fact  and  analysis  rather  than  on  guesswork  or 
emotions.  To  be  able  to  define  and  analyze  a  prob- 
lem, and  develop  a  set  of  computer  instructions  to 
solve  it  is  a  considerable  accomplishment  and  is 
certainly  applicable  in  many  areas  other  than  com- 
puter programming.  Children  and  adults  also  need 
to  become  familiar  with  computer  operation, 
capabilities,  and  programming  in  preparation  for 
our  increasingly  computerized  world. 

Caveat  emptor.  Software  publishers  have  dis- 
covered that  there's  no  surer  way  to  a  parent's 
pocketbook  than  to  sell  the  notion  that  using  a 
personal  computer  will  improve  a  child's  mind.  If 
you  intend  to  purchase  a  "professionally"  prepared 
program,  ask  for  a  demonstration  before  spending 
that  $30.  Beware  of  flimflam  floppies,  snakeoil,  and 
superhype.  You  may  want  to  consult  Software  Re- 
ports, which  evaluates  382  educational  programs  in 
20  subject  areas  in  terms  of  content,  ease  of  use, 
entertainment,  and  other  criteria.  It's  available 
from  many  computer  stores  and  by  mail  from  Allen- 


bach  Industries,  2101  Las  Palmas  Dr.,  Carlsbad, 
CA  92008.  Additionally,  many  of  the  popular  home 
computing  magazines  carry  regular  reviews  of  edu- 
cational software. 

APPLICATION  IDEAS 

The  educational  uses  for  personal  computers 
are  unlimited;  a  few  of  the  possible  ways  of  using 
the  computer  to  instruct  yourself,  your  children,  or 
your  friends  include  the  following.  You  may  wish  to 
incorporate  these  ideas  in  programs  that  you  can 
sell  to  others. 

•  Create  a  program  describing  how  to  program 
computers  in  BASIC  or  another  language  such  as 
assembly  language  or  FORTRAN,  etc.  with 
step-by-step  examples. 

•  Create  a  story  building  program  for  youngsters  in 
which  the  computer  randomly  selects  individual 
story  parts  and  combines  them  to  produce  a  dif- 
ferent story  each  time.  Questions  could  be  asked 
to  test  reading  comprehension,  grammar,  and 
writing  skills.  For  example,  the  program  could 
produce  a  personalized  story  for  a  child  using  his 
or  her  name.  Occasionally,  questions  such  as  this 
should  be  displayed: 

Johnny,  should  I  write  the  next  sentence  as 


or 


1.  "Johnny  and  I  went  to  the  park." 

2.  "I  and  Johnny  went  to  the  park." 


If  the  child  answers  correctly,  the  computer 
reply  could  be  "O.K.,  that's  correct,"  and  a 
wrong  answer  could  be  explained— "No  that's 
wrong.  The  person  who  is  talking  should  place 
the  "I"  last,  after  the  names  of  other  people." 
•  Create  an  I.Q.  builder  program  to  familiarize 
people  with  the  types  of  questions  and  problem 
solving  methods  used  on  tests  such  as  the 
Scholastic  Aptitude  test,  Civil  Service  tests,  and 
the  American  College  Assessment  test.  Re- 
search has  shown  that  familiarization  with  the 
tests  can  improve  performance  considerably. 
Sample  questions  are  readily  available  in  test- 
preparation  books. 
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Create  a  future-potential  evaluation  program  de- 
signed to  quiz  high  school  or  college  students 
about  their  talents,  interests,  and  abilities.  The 
program  could  direct  them  toward  promising 
careers  based  upon  this  information. 
Computerize  psychological  questionnaires, 
which  are  often  found  in  popular  magazines  and 
books  for  recreational  and  education  use.  Tests 
particulary  suited  for  computerization  are  those 
requiring  tedious  calculation  to  analyze.  For  in- 
stance, this  quiz  is  designed  to  test  your  "happi- 
ness quotient"  and  could  be  easily  computerized: 
Answer  each  question  as  true  or  false. 

1.  My  work  is  usually  fulfilling  or  in- 
teresting. 

2.  I  have  a  good  ability  to  relax. 

3.  I  can  enjoy  happiness  in  little  things 
easily. 

4.  I  seldom  envy  other  people. 

5.  My  moods  have  great  fluctuation. 

6.  I  have  a  great  desire  to  change  either 
my  location,  family  situation,  or  job. 

7.  I  usually  sleep  well  and  don't  feel  tired 
in  the  morning. 

8.  I  periodically  "blow  my  top"  without 
knowing  the  real  reason. 

9.  I  am  usually  a  pessimistic  person. 

10.   I  cannot  have  happiness  without  others 
being  around  me. 

Scoring: 

Start  with  zero,  add  one  point  to  each  true 
answer  to  questions  1,  2,  3,  4,  7  and  add  one  point 
for  each  false  answer  to  questions  5,  6,  8,  9,  10. 
Multiply  the  total  by  10  to  determine  percentage 
happiness  (average  score  is  approximately  50). 

An  ambitious  programmer  could  program 
the  computer  to  print  out  an  analysis  of  the  sub- 
ject based  on  his  answers.  Such  a  program  would 
make  use  of  stock  phrases  to  be  used  for  many 


possible  combinations  of  answers  and  could  read 
like  this: 

If  you  don't  derive  much  pleasure  from  little 
things  or  if  you  regularly  lose  your  temper  (3  and 
8),  you  should  give  some  attention  to  your  at- 
titudes. Is  your  social  situation  the  cause  of  the 
trouble  (6)  or  is  it  your  job  situation  (1)?  Often, 
the  simple  recognition  of  this  difficulty  will  serve 
to  clear  up  the  situation.  The  person  who  is  truly 
happy  can  find  happiness  while  alone  (10)  and 
isn't  envious  (4).  The  moody  person  (5  and  9)  can 
often  benefit  from  the  advice  of  a  counselor. 
•  Create  a  spelling  program  that  would  allow  you  to 
input  and  store  words.  Words  would  be  randomly 
selected  and  flash  on  the  screen  from  .1  to  10 
seconds.  The  player  must  then  type  in  the  word 
from  memory. 

COMPUTER  ASSISTED  INSTRUCTION 

Computer  assisted  instruction  (CAI)  refers  to 
the  use  of  a  computer  as  a  teaching  device. 
Graphics,  text,  or  questions  can  be  presented  on 
the  screen.  The  simple  program  presented  is  de- 
signed to  ask  a  question  of  any  subject,  wait  for  a 
response  in  Listing  5-1,  determine  whether  or  not 
the  answer  was  correct,  and  keep  track  of  progress. 
Two  incorrect  answers  are  allowed  before  the  cor- 
rect answer  is  given;  change  line  100  if  this  is  not 
desired. 

Sample  data  for  a  quiz  about  computers  could 
be  as  follows: 

300  DATA  IS  YOUR  COMPUTER  CON- 
SIDERED A  MICROCOMPUTER  OR  A 
MINICOMPUTER,  MICROCOMPUTER 

310     DATA  WHAT  DOES  CPU  STAND  FOR, 
CENTRAL  PROCESSING  UNIT 

The  question  comes  first  in  the  DATA  statements 
and  is  immediately  followed  by  a  comma  and  the 
answer. 


Listing  5-1:  General  CAI  Program 

1  CLR 

2  PRINTCHR$(147)TAB(45)"COMPUTER  ASSISTED  INSTRUCTION" 

3  REM  QUESTIONS  AND  ANSWERS  ARE  CONTAINED  IN  THE  DATA  STATEMENTS 
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5  PRINT:PRINT"TO  STOP  AT  ANY  POINT  TYPE  'STOP'  AS  AN  ANSWER" 

7  Y=0:Z=0:N=3:REM  N  MUST  EQUAL  THE  NUMBER  OP  DATA  STATEMENTS 

15  FORA=l  TO  N:Y=1 

20  READ  A$,B$ 

30  PRINT  A$ 

40  INPUT  C$:IF  C$="STOP"  THEN  150 

50  IF  C$=B$  THEN  GOTO  140 

55  GOTO  100 

60  GOTO  100 

100  IF  Y=2  THEN  130 

110  PRINT"INCORRECT  ANSWER. . .PLEASE  TRY  AGAIN":Y=Y+1 

120  GOTO  40 

130  PRINT"THE  ANSWER  WAS:":PRINT  B$:Z=Z+1 

140  NEXT  A 

145  IF  A>N  THEN  A=N 

150  PRTNT"Y0U  ANSWERED";A-Z;"OR";(A-Z)/N-100;"%  QUESTIONS  CORRECT" 

170  PRINT"AND";Z; "QUESTIONS  WERE  ANSWERED  INCORRECTLY" 

180  INPUT'TRY  AGAIN" ;A$ 

190  IF  A$="YES"  THEN  7 

200  END 

300  DATA  IS  YOUR  COMPUTER  CONSIDERED  A  MICROCOMPUTER  OR  MINI  COMPUTER 

305  DATA  MICROCOMPUTER 

310  DATA  WHAT  DOES  CPU  STANAD  FOR, CENTRAL  PROCESSING  UNIT 

315  DATA  HOW  MANY  BYTES  IN  A  KILOBYTE,  1024 


COMPUTER  TUTOR 

You  can  use  your  computer  to  assist  you  in  the 
memorization  of  lists,  vocabulary  words,  and  other 
types  of  abstract  information.  For  instance,  the 
computer  could  quiz  you  in  flashcard  fashion  from  a 
list  of  vocabulary  words,  displaying  each 
randomly-selected  word  individually.  Once  you 
have  glanced  at  a  word,  and  attempted  to  recite  the 
definition  to  yourself  (or  to  the  computer),  press 
the  enter  or  return  key.  The  definition  could  be 
automatically  displayed  afterwards  at  this  point.  If 
you  did  not  know  the  correct  definition,  you  could 
type  "w"  (wrong)  to  indicate  this  mistake,  and  the 
word  and  definition  could  be  stored  for  review.  If 
you  were  right,  you  would  simply  press  the  enter  or 
return  key  and  the  next  word  would  be  displayed. 
Additionally,  the  number  and  percentage  of  correct 
answers  could  be  maintained. 

The  high  school  or  college  student  should  find 
computerized  quizzes  helpful  in  memorizing  such 
information  as 

1.  Historical  names,    dates,    and  places- 
presidents,  authors,  inventors  .  .  . 

2.  Parts  and  functions  of  the  anatomy 

3.  Mathematical  or  chemical  formulae 

4.  Verses  in  literature 


5.  Spellings  or  definitions  of  difficult  words 

6.  Trigonometric  identities 

7.  Geography— states,  capitals,  countries 

8.  Technical  and  scientific  terminology 

9.  Anglo/metric  unit  conversions 

EDUCATIONAL  SIMULATIONS 

Because  of  the  ability  of  the  computer  to  per- 
form calculations  rapidly,  they  are  well-suited  to  be 
used  for  educational  and  mathematical  simulations. 
Simulations  for  educating  young  people  include  the 
following: 

The  Manhattan  Indian  Problem.  This 
simulation  teaches  the  principle  of  compounded 
interest.  As  the  story  goes,  the  new  world  settlers 
paid  the  Indians  $24  for  the  entire  island  of  Man- 
hattan in  1626.  Today,  this  property  is  worth  mill- 
ions of  dollars.  But,  what  would  have  happened  if 
the  settlers  had  deposited  the  $24  in  a  savings 
account  at  6%  interest  compounded  daily?  How 
much  would  that  account  be  worth  today?  A  com- 
puter generated  chart  listing  the  value  of  the  ac- 
count after  each  decade  would  serve  to  illustrate 
the  geometrical  growth  rate  involved  and  the  sur- 
prising answer  to  the  Manhattan  Indian  Problem. 
Use  the  formula  A    =  A(l+r)n  where  A    =  value 
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acquired  (capital  +  interest),  A  =  original  invest-  volume  of  organisms  equal  to  one  million  times  the 

merit,  v  =  interest  rate,  and  n  =  number  of  years,  volume  of  the  sun,  provided  food  and  space  were 

The  growth  of  an  amoeba  colony.  This  available!  A  numerical  listing  or  plot  of  the  popula- 

simulation  simulates  the  growth  of  a  colony  of  tion  versus  time  could  be  generated  by  the  com- 

amoebas  (one-celled  organisms)  in  a  jar  with  a  lim-  puter.  Will  the  colony  reach  equilibrium  (a  stable 

ited  food  supply.  The  reproduction  rate  will  cause  state)?  Along  parallel  lines,  simulations  of  a  large 

the  colony  population  to  double  per  unit  time.  The  scale  (for  example,  ecological  balance  in  a  forest) 

formula  for  geometric  progressions  is  could  be  undertaken. 

The  laws  of  physics.  The  demonstration  of 

qn- 1  some  law  of  physics  could  take  the  form  of  graphical 

^  illustrations  of  planetary  orbits,  acceleration  due  to 

gravity,  motion  of  a  pendulum,  and  so  on. 

where  S  =  sum,  a  =  the  first  term  (in  this  case  =  1),  A  popular  physics  demonstration  program 

q  =  the  ratio  for  successive  values  (in  this  case  -2  called  'The  Lunar  Landing  Simulation"  is  pre- 

because  the  colony  doubles  with  each  generation),  sented  in  Listing  5-2.  In  this  simulation,  the  learner 

However,  pollution  and  limited  food  supply  will  must  control  the  flight  of  an  Apollo  moon  lander 

decrease  colony  size  at  an  increasing  rate.  Other-  under  the  influence  of  gravity.  Limits  on  oxygen, 

wise,  within  one  month's  time,  a  single  bacterium  food,  and  fuel  supply  must  be  contended  with  also. 

(about  one  tenth  of  a  millimeter  in  diameter)  divid-  Similar  programs  have  been  written  to  graphically 

ing  at  a  rate  of  five  times  a  day  would  produce  a  simulate  the  piloting  of  an  airplane. 


Listing  5-2:  The  Lunar  Landing  Simulation  Program 

5  SS$=CHR$(171)+CHR$(113)+CHR$(179) 

10  PRINTCHR$(147)TAB(48)"LUNAR  LANDING  SIMULATION" 

20  PRINT" " 

30  PRINT 

40  PRINT"D0  YOU  WANT  INSTRUCTIONS(Y/N)" 

50  INPUT  A$ 

60  IF  A$="N"  THEN  300 

70  PRINT 

80  PRINT"Y0U  ARE  LANDING  ON  THE  MOON  AND  HAVE" 

85  PRINT"TAKEN  OVER  MANUAL  CONTROL  500  FEET" 

90  PRINT"AB0VE  A  GOOD  LANDING  SPOT.  YOU  HAVE  A" 

100  PRINT"D0WNWARD  VELOCITY  OF  50  FEET  PER  SECOND" 

110  PRINT"AND  120  UNITS  OF  FUEL  REMAIN." 

120  PRINT 

130  PRINT"HERE  ARE  THE  RULES  THAT  GOVERN  YOUR" 

135  PRINT"SPACE  VEHICLE:" 

140  PRINT" 1)  AFTER  EACH  SECOND,  THE  HEIGHT,  " 

145  PRINT"   VELOCITY,  AND  REMAINING  FUEL  WILL" 

150  PRINT"   BE  REPORTED:" 

160  PRINT"2)  AFTER  THE  REPORT,  A  QUESTION  MARK  " 

165  PRINT"   WILL  APPEAR  ON  THE  SCREEN.  ENTER  THE" 

170  PRINT"   NUMBER  OF  UNITS  OF  FUEL  YOU  WISH  TO" 

180  PRINT"   BURN  DURING  THE  NEXT  SECOND.  EACH" 

185  PRINT"   EACH  UNIT  OF  FUEL  WILL  SLOW  YOUR  " 

190  PRINT"   DESCENT  BY  1  FOOT  PER  SECOND." 

195  PRINT: INPUT  "PRESS  RETURN  TO  CONTINUE" ;A$ 

200  PRTNT"3)  THE  MAXIMUM  THRUST  OF  YOUR  ENGINE  IS" 

210  PRINT"   30  FT/SEC/SEC  OR  30  UNITS  OF  FUEL" 
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215  PRINT"   PER  SECOND." 

220  PRINT"4)  WHEN  YOU  CONTACT  THE  LUNAR  SURFACE," 

225  PRINT"   YOUR  DESCENT  ENGINE  WILL  AUTOMATIC-" 

230  PRINT"   ALLY  CUT  OFF  AND  YOU  WILL  BE  GIVEN  A" 

240  PRINT"   REPORT  OF  YOUR  LANDING  SPEED  AND" 

250  PRINT"   REMAINING  FUEL." 

260  PRINT" 5)  IF  YOU  RUN  OUT  OF  FUEL,  THE  '?'  WILL" 

265  PRINT"   NO  LONGER  APPEAR,  BUT  YOUR  SECOND-BY" 

270  PRINT"   SECOND  REPORT  WILL  CONTINUE  UNTIL" 

280  PRINT"   YOU  CONTACT  THE  LUNAR  SURFACE." 

290  PRINT 

300  PRINT"BEGIN  LANDING  PROCEDURE " 

310  PRINT'G  0  0  D     LUCK" 

320  PRINT 

330  PRINT"SEC:  FEET:  SPEED:  FUEL:    DISTANCE: 

340  PRINT 

350  T=0 

360  H=500 

370  V=50 

380  F=120 

390  IF  B=0  THEN  420 

400  PRINT  T;TAB(5)TNT(H);TAB(12)INT(V);TAB(17)INT(F); 

405  PRINT  TAB(22)"I";TAB((H/37+23));SS$ 

410  GOTO  430 

420  PRINT  T;TAB(5)INT(H);TAB(12)INT(V);TAB(17)INT(F); 

425  PRINT  TAB(22)"I";TAB((H/37+24));SS$ 

430  INPUT  B 

440  IF  B<0  THEN  600 

450  IF  B>30  THEN  600 

460  IF  B>F  THEN  480 

470  GOTO  500 

480  B=F 

500  Vl=V-B+5 

510  F=F-B 

520  H=H-.5*(V+V1) 

530  IF  H<=0  THEN  620 

540  T=T+1 

550  V=V1 

560  IF  F>0  THEN  390 

570  IF  B=0  THEN  590 

580  PRINT"  **   OUT  OF  FUEL  **" 

590  PRINT  T;TAB(5)INT(H);TAB(12)INT(V);TAB(17)INT(F); 

595  PRINT  TAB(22)"I";TAB((H/37+23));SS$ 

600  B=0 

610  GOTO  500 

620  PRINT"-"""-  CONTACT  **" 

630  H=H+.5*(V+V1) 

640  IF  B=5  THEN  670 

650  D=(-V+SQR(V-"-V+H-"-(10-2-"-B)))/(5-B) 

660  GOTO  680 

670  D=H/V 

680  Vl=V+(5-B)-"-D 

690  PRINT"TOUCHDOWN  AT" ;T+D; "SECONDS" 

700  PRINT"LANDING  VELOCITY^" ; VI ; "FT/SEC . " 

710  PRINT  F; "UNITS  OF  FUEL  REMAINING." 

720  IF  V1O0  THEN  750 

730  PRINT"CONGRATULATIONS— A  PERFECT  LANDING!" 
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740  PRINT"YOUR  LICENSE  WILL  BE  RENEWED. . .LATER" 

750  IF  ABS(V1)<5  THEN  780 

760  PRINT"--  SORRY,  BUT  YOU  BLEW  IT  **" 

770  PRINT"APPROPRIATE  CONDOLENCES  WILL  BE  SENT  TO  " 

775  PRINT"YOUR  NEXT  OF  KIN." 

780  PRINT"ANOTHER  MISSION"; 

790  INPUT  A$ 

800  IF  A$="YES"  OR  A$="Y"  THEN  300 

810  PRINT 

820  PRINT"CONTROL  OUT" 

830  PRINT 

840  END 


Large  Scale  Simulations 

Simulations  on  a  large  scale  that  require  ex- 
tensive preparation  have  also  been  accomplished  on 
personal  computer.  These  include  the  following. 

The  acoustics  of  a  room.  The  acoustics  of  a 
room  could  be  mathematically  simulated  if  such 
parameters  as  the  dampening  effects  of  the  walls, 
the  shape  of  the  room  and  its  contents,  the  location 
of  the  sound  source  were  provided;  this  could  be 
useful  to  the  architect  or  stereo-listening  perfec- 
tionist. For  example,  in  designing  a  small  stereo 
listening  room  or  studio,  concentrations  of  standing 
waves  cause  unequal  resonances  in  different  spots 
within  the  room.  To  reduce  the  nonuniformity  of 
standing  waves  at  lower  frequencies,  room  propor- 
tions must  be  carefully  controlled  to  insure  op- 
timum diffusion  of  sound.  Standing  waves  in  a  rec- 
tangular room  are  governed  by  a  simple  equation 
that  could  be  modeled  on  your  personal  computer: 

f&V  nw,  \)  =  (c/2)  [(n/1)2  4-  (nww)2  +  (n/h)2]  'h 

where  c  =  velocity  of  sound,  and  1  =  length, 
w=width,  h=height  of  the  room;  the  n's  are  the 
mode  numbers;  the  lowest  mode  number  (n=l) 
represents  the  lowest  frequency  resonance  ap- 
pearing, governed  by  the  dimension,  and  higher  n's 
represent  higher  frequency  resonances.  To  calcu- 
late the  frequency  of  a  standing  wave  along  one  axis 
of  the  room,  you  set  the  n  values  for  the  other  two 
axes  equal  to  zero.  For  example,  if  i^  =1  and  the 
others  equal  zero,  the  formula  will  give  the  lowest 
frequency  standing  wave  along  the  length  of  the 
room.  When  two  terms  are  non-zero,  the  standing 
waves  are  tangential.  To  obtain  uniformity,  the 


tangential  waves  are  most  desirable,  the  oblique 
waves  are  next,  and  the  axial  waves  are  least  desir- 
able. Thus,  by  using  this  equation,  you  can  adjust 
room  dimensions  to  provide  the  most  even  spacing 
of  axial  standing  waves  together  with  a  preference 
for  tangential  waves,  thereby  allowing  the  greatest 
uniformity  in  frequency. 

A  simulation  of  world  dynamics.  This 
simulation,  which  is  similar  to  Jay  Forrester's 
Limits  to  Growth  computer  simulation,  could  be 
accomplished  on  a  small  scale.  World  dynamics 
involves  the  interaction  of  population,  pollution, 
resources,  and  so  on  to  predict  future  outcomes. 

A  simulation  of  astronomical  and  physi- 
cal theories.  This  kind  of  simulation  could  possi- 
bly be  accomplished  with  a  personal  computer  sys- 
tem. Of  course,  the  memory  requirements  would 
be  very  large,  and  simulation  time  could  be  hun- 
dreds of  hours.  See  the  article  ''Doing  Physics  with 
Microcomputers"  in  Physics  Today,  December 
1983,  pp.  25-28.  The  author  describes  a  Monte 
Carlo  simulation  of  the  three  dimensional  Ising 
model  for  study  of  phase  transitions. 

A  simulation  of  automotive  fuel 
economy.  This  simulation  could  include  such  fac- 
tors as  fuel  injection,  fuel  additives,  pollution 
monitors,  etc. 

A  simulation  that  stages  your  own  World 
Series  or  Super  Bowl.  You  could  use  statistical 
techniques  to  simulate  a  game  or  series  of  games 
using  stars  whose  performances  are  based  on  their 
career  averages. 

ADDITIONAL  CAI  IDEAS 

Examples  of  teaching  programs  for  a  variety  of 
levels  are  listed  on  the  following  page. 
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Elementary  math  flashcards.  Programs 
designed  to  increase  speed  and  efficiency  in  basic 
mathematics  (for  example,  addition  and  multiplica- 
tion) in  which  a  time  limit  would  be  set  for  answer- 
ing a  question. 

World  problems.  A  program  designed  to 
output  "random"  word  problems  in  mathematics  for 
practice. 

Rhymes  and  riddles.  In  this  learning  game, 
young  children  could  try  to  unscramble  words  to 
form  a  line  from  a  nursery  rhyme  or  an  answer  to  a 
riddle. 

Fractions.  A  drill  program  in  recognizing 
common  denominators  and  adding  and  multiplying 
fractions. 

Spell.  A  program  that  teaches  the  student  to 
recognize  commonly  misspelled  words. 

Roots.  A  guessing/learning  game  in  which  the 
student  must  guess  the  square  or  cube  root  of  a 
random  number. 

Kinema.  A  program  in  physics  that  helps  the 
student  learn  to  calculate  the  path  of  a  projectile. 


Gasvol.  A  plotting/calculating  program  that 
draws  pressure/volume  diagrams  of  a  gas  (chemis- 
try and  physics  use). 

Logic  reasoning.  This  program  tests  the 
student  on  conditional  statements,  hypotheses, 
conclusions,  deductions,  fallacies,  and  definitions. 

Balance.  A  drill  program  on  balancing  chemi- 
cal equations. 

Metric.  An  exercise  in  converting  between 
the  English  and  metric  systems  of  units. 

Bases.  A  demonstration  program  in  teaching 
how  to  do  conversions  from  one  numerical  base 
system  to  another. 

Multiplication  drill.  The  program  in  Listing 
5-3  randomly  generates  single  digit  multiplication 
problems  for  practice  in  memorizing  the  multipli- 
cation tables.  It  has  a  variety  of  randomly  selected 
responses  to  right  and  wrong  answers  and  also 
keeps  score.  Problems  that  are  answered  incor- 
rectly are  stored  and  asked  again  at  the  end  of  the 
quiz. 

Speed  reading/tachistoscope.  A  program, 


Listing  5-3:  The  Multiplication  Drill  Program 

10  REM  MULTIPLICATION  DRILL  PROGRAM 

20  PRINTCHR$(147)TAB(50)"MULTIPLICATI0NS  DRILL" 

30  INPUT"W0ULD  YOU  LIKL  INSTRUCTIONS" ;Z$ 

40  IF  Z$="N0"  THEN  90 

50  PRINT"I'M  GOING  TO  SEP  HOW  WELL  YOU  CAN  " 

55  PRINT"MULTIPLY.  WHPN  I  SHOW  YOU  A  PROBLEM," 

60  PRINT"TYPE  IN  THE  ANSWER  AND  PRESS  THE" 


65  PRINT" 'RETURN'  KEY, 
70  PRINT"R1GHT,  AND  Gl 


I 'LL  TELL  YOU   II 
VE   YOU   A   SCORE  AErl 


YOU  ARE" 
:<R  TEN" 


80  INPUT"QUESTTONS,  O.K.";Z$ 

90  PRINT 

95  PRINT 

100  F0RX=1  TO  10:X1=X1+] 

110  A=INT(RND(0)*11):B=1NT(RND(0)*11) 

120  PRINT 

130  E=0:PRINT"PROBLEM  #";X1:PRINT 

135  GOSUB  140: NEXT  X 

137  GOTO  420 

140  PRINT  "  ";INT(A) 

150  PRINT"X"; :PRINT  TNT(B) 

160  C=A*B 

170  PRINT" " 

180  INPUT"=";D 

190  IF  D=C  THEN  300 

193  E=E+1:IF  E=l  THEN  M=M+1 

195  IF  E=2  THEN  PRINT  "THE  ANSWER  WAS: 

200  PRINT  "YOU  GOOFED... TRY  AGAIN." 


REM  COUNTING  MISSES 

C:G0T0  240 
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220  GOTO  140 

240  F=F+1 

250  A(F)=A 

260  B(F)=B 

270  RETURN 

280  REM 

290  REM 

300  X2=X2+1:R=INT(RND(1)*5+1) 

310  ON  R  GOTO  320,340,360,380,400 

320  PRINT"RIGHT  ON ! ! ! " 

330  GOTO  410 

340  PRINTMFINE. . ." 

350  GOTO  410 

360  PRINT"GOOD  WORK! ! !" 

370  GOTO  410 

380  PRINT"KEEP  IT  UP!" 

390  GOTO  410 

400  PRINT"EXCELLENT!" 

410  RETURN 

420  PRINT"YOUR  SCORE  IS  NOW" ;X2; "CORRECT  AND" ;M; "ERRORS .  ("; 

425  PRINT  INT(X2/(M+X2)*100);"%)M 

430  INPUT"DO  YOU  WANT  TO  CONTINUE" ;Z$ 

440  IF  Z$="YES"  OR  Z$="Y"THEN  500 

450  PRINT"THANKS  FOR  PLAYING  WITH  ME..." 

460  END 

500  G=0:F0RX=1  TO  10 

510  IF  (A(X)>0)  OR  (B(X)>0)  THEN  G=G+1 

520  NEXT  X 

530  IF  G=0  THEN  100 

540  PRTNT"I  DIDN'T  FORGET  YOU  MISSED  THESE:" 

5  50  F0RX=1  TO  G 

560  A=A(X):B=B(X) 

570  GOSUB  140 

580  NEXT  X 

585  F=0 

590  GOTO  100 


helps  such  as  the  one  in  Listing  5-4,  that  helps  you 
learn  to  read  faster  could  be  easily  implemented  by 
using  a  timing  loop.  Lines  from  a  piece  of  literature 
could  be  stored  in  data  statements  and  flashed 
momentarily  on  the  screen;  only  one  line  at  one 
time  should  be  displayed.  The  timing  loop  is  simply 
a  BASIC  FOR-NEXT  loop  that  will  require  a 


specified  amount  of  time  to  be  executed  (for  exam- 
ple, FOR  X=l  TO  500:  NEXT  X  requires  approxi- 
mately 1  second  to  execute  with  some  forms  of 
BASIC).  The  amount  of  time  you  are  given  to  read 
each  line  should  be  gradually  decreased  until  a 
speed  of  several  hundred  words  (for  example  500) 
per  minute  is  obtained. 


Listing  5-4: 

The  Speed  Reading  Program 

10  REM  SF 

'EED 

READING  PROGRAM 

20  N=500: 

REM 

SET  N 

= INITIAL  TIMING 

FACTOR 

25  PRINT 

CHR 

*<147> 

30  PRINT' 

THE 

THREE 

DAY  BLOW,  BY  EF 

.'NEST  HE 

MINGWAY" 

40  GGSUBJ 

000 

50  PRINT' 

'THE 

RAIN 

STOPPED  AS  NICK 

TURNED 

INTO 

THE 

ROAD  " 

6  0  GQBUB.1 

000 

70  PRINT' 

"IMA 

T  WENT 

UP  THROUGH  THE 

ORCHARD 

.  THE 

FRUIT 

HAD 

BEEN" 
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£30 

•30SUB10O0 

90 

"'Rl'NT'-'PlCKED  AND  THE 

:  PALL  WIND  BLEW  THROUGH  THE  BARE  TREES." 

100 

GO SUB  1000 

1  1  0 

PR  I  NT "NICK  STOPPED 

AND  PICKED  UP  A  WAGNER  APPLE  PROM  " 

120 

G0SUB1000 

130 

pr iNT" be:: side::  the  rc 

JAD,  SHINY  IN  THE  BROWN  GRASS  FROM  THE" 

140 

G0EUB1000 

1U0 

PR  INT "RAIN.  HE  PUT 

THE  APPLE  IN  THE  POCKET  OF  HIS  MACKINAW" 

160 
170 

G0SUB1000 
PR  I  NT" COAT . 

180 

G0SUB1000 

190 

REN  CONTINUE  TO  1NZ 

,ERT  LINES  HERE  IN  THE  FASHION  ABOVE... 

400 

N^N   -50;:  REM  DECREASE 

:  TIMING  FACTOR  AFTER  EACH  READ- THROUGH 

403 

IPN::.OTHEN  END 

4  OS 

PR  I  NT" TIN  I  NO  FACT OH 

;  ■■=:  "  ;  N ::  F  0 R  X  -  1  T  [J  5  0  0 :  N  E  X  T  X 

4  1  0 

GOTO  25: BEGIN  ANEW 

WITH  FASTER  TIMING 

100 

J  REN  THIS  SUBROUTIE 

JE  INSERTS  A  DELAY  BETWEEN  EACH  LINE 

1  0  1 

1  02 

J    REM  DEPENDING  ON  "1 
J  FUR  X  =•■■•!  TO  N 

HE  VALUE  OF  THE  TIMING  FACTOR,  N 

103 

j    NEXT  X 

104 

J  REN  EXPERIMENT  W 11 

H  YOUR  COMPUTER  TO  DETERMINE  A 

105 

J  REM  REASONABLE  VAL 

_UE  FOR  N  IN  LINE  #20 

1  g  £, 

J  PRINT  CHR*<147) 

107 

108 

:>  print:  print:  print: 

J  RETURN 

PR  I  NT: PR I  NT 

A  tachistoscope  can  be  used  to  improve  your  we  are  able  to  see  many  more  letters  displayed  by 

perception  and  short-term  memory.  Psychologist  the  tachistoscope  if  they  form  a  familiar  word  in- 

G.  Miller  reports  that  anyone  should  be  able  to  see  stead  of  an  unfamiliar  or  foreign  word.  A  tachisto- 

from  five  to  nine  letters  in  any  given  brief  exposure,  scope  program  could  be  written  for  personal  con- 

whether  1/100  of  a  second  long  or  lh  a  second,  firmation  or  as  a  science  fair  project.  The  program 

which  shows  the  limitation  in  our  ability  to  perceive  could  offer  adjustable  speeds,  familiar  and  unfamil- 

visual  information  in  brief  exposures.  In  addition,  iar  words,  and  display  of  words  for  confirmation. 
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Chapter  6 
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Hobby  Applications 


Your  personal  computer  can  make  hobbies,  from 
arts  and  crafts  to  photography  easier,  quicker,  and 
more  creative. 

THE  ARTS 

It  does  not  seem  possible  that  a  computer  can 
create  original  art  work  until  you  consider  the 
mathematical  basis  as  well  as  randomness  of  some 
art  forms.  Art  is  an  area  in  which  the  personal 
computer  can  be  used  in  many  different  ways— and 
many  of  these  ways  are  yet  undiscovered. 

The  Visual  Arts 

The  computer  can  serve  both  as  a  source  of 


inspiration  and  as  a  tool  for  the  artist  or  craitsper- 
son.  Below  are  some  of  the  areas  in  which  a  com- 
puter can  be  used. 

Mathematical  functions.  Plotting  or 
graphing  a  mathematical  function  can  often  produce 
interesting  geometrical  designs.  Color  terminals 
equipped  to  plot  a  grid  in  full  color,  each  color 
indicative  of  the  value  of  the  function  at  each  indi- 
vidual point,  produce  fantastic  geometries,  the  de- 
signs generated  can  be  used  in  knitting  or  embroi- 
dering, or  for  producing  a  geometrical  painting.  A 
plotter  or  graphic  pointer  may  be  used  for  output.  A 
standard  printer  may  be  used  with  the  demonstra- 
tion program  in  Listing  6-1,  which  creates  plots 


Listing  6-1 :  The  Three  Dimensional  Plotter  Program 

10  PRINT" ? 3  DIMENSIONAL T  PLOTTER" 

20  REM  OTHER  FUNCTIONS  TO  TRY  INCLUDE:  S*(C0S(Z/16))42 

30  REM  THE  SYMBOL  t  MEANS  EXPONENTIATION 

40  DEF  FNA(Z)=S*EXP(Z*-Z/100) 

50  PRINT"ENTER  SCALE  FACTOR  (TRY  '30'  )*' 

55  INPUT  S 

60  FOR  X=-S  TO  S  STEP  S/20:L=0 
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70  Yl=5*INT(SQR(S42-X*X)/5) 

80  FOR   Y=Y1   TO  -Yl   STEP-S/6 

90  Z=INT(S-5+FNA(SQR(X*X+Y*Y))-.7*Y) 

100  IF  Z>L  THEN   L=Z:PRINT  TAB(INT(Z/2) )"+"; 

110  NEXT  Y 

120  PRINT   "    ".-NEXT  X:END 


with  a  three-dimensional  appearance.  Figure  6-1 
shows  some  sample  output  from  the  three-di- 
mensional plotter  program. 

Alteration  of  a  design.  A  given  design  (for 
example,  a  drawing  of  a  human  face  or  an  American 
flag)  transformed  into  a  series  of  points  on  a  grid 
can  be  manipulated  using  a  mathematical  algorithm 
to  produce  "modern  art"  effects.  Additionally,  one 
design  may  be  gradually  transformed  into  another, 
through  a  series  of  plots,  producing  a  fascinating 
result  reminiscent  of  animation. 

Kaleidoscope.  A  kaleidoscopic  pattern  may 
be  produced  by  plotting  a  continuous  set  of  points 
that  wander  randomly  horizontally  and  vertically  in 
one  of  four  corners  on  the  screen.  The  other  three 
corners  are  plotted  by  "reflecting"  the  wandering 
line,  drawing  in  mirror-fashion.  An  example  is 
shown  in  Fig.  6-2. 

Random  art  patterns.  For  the  ultimate  in 
simplicity,  a  program  could  generate  random  num- 


bers that  in  turn  would  cause  graphics  characters  on 
the  screen  to  turn  on  or  off  or  would  control  a  pen 
plotter  in  "random-walk"  fashion.  This,  however, 
may  exceed  the  confines  of  what  is  considered  art. 
One  hobbyist  reports  using  his  computer  to  ran- 
domly combine  picture  elements  and  then  print 
"landscapes"  using  a  plotter.  Figure  6-3  shows  an 
image  produced  using  randomly  determined  ele- 
ments. 

A/D  converters.  Use  of  an  analog/digital 
converter  to  digitize  and  transform  real-world 
events  can  produce  interesting  results.  For  exam- 
ple, one  hobbyist  interfaced  a  human  dancer  to  his 
computer  by  applying  a  dozen  mercury  switches  to 
the  dancer's  body.  The  dancer's  movements  caused 
the  switches  to  open  and  close,  producing  digital 
signals  for  the  computer.  The  computer,  in  turn, 
created  "choreographed  music"  from  the  signals. 

Anamorphic  art.  Anamorphic  images  are 
those  that  appear  distorted,  but  when  viewed  with  a 
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Fig.  6-1 .  Sample  output  from  the  three-dimensional  plotter  program. 
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Fig.  6-2.  A  kaleidoscope  pattern. 


special  device  or  from  a  unique  perspective  appear 
normal.  An  example  of  such  a  special  device  is  a 
cylindrical  mirror  placed  in  the  center  of  the  image. 
The  computer  may  be  used  to  transform  a  set  of 
points  describing  a  "normal"  image  into  an  anamor- 
phic  equivalent.  For  examples  of  anamorphic  art, 
see  Lee  man,  Fred.  Hidden  Images:  Games  of  Per- 
ception, Anamorphic  Art,  Illusion.  New  York:  Harry 
N.  Abrams,  Inc.,  1975.  Figure  6-4  shows  the  re- 
sults of  such  a  program. 

Crossword  poetry.  An  interesting  "cross- 
word" of  the  words  from  a  poem  or  piece  of  litera- 
ture may  be  created  by  the  computer.  A  program  to 
create  such  "art"  would  scan  each  word  and  deter- 
mine how  that  word  could  fit  in  crossword  form 
with  adjacent  words: 


WHO 

BUT 

A 

WHEN 

THE  LEAVES 

SEEN 

A 

R 

THE 

N 

E 

WIND? 

G 

M 

E 

B 

1 

I  THE  WIND 

T 

T       S 

H 

N 

E 

I 

R 

PASSING 

NOR 

THROUGH 

YOU 

READ  AS  "Who  has  seen  the  wind? 
Neither  I  nor  you. 
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Fig.  6-3.  A  video  image  created  by  a  progrf.tm  ,l m\  randomly  placed  lines  and  circles  of  various  sizes  on  the  screen  and  filled  in 
each  area  with  a  random  color  or  loxtmv 


Fig.  6-4.  "Computer  Curvilinear  Projection  -  Convex  and  Concave    by  Ramon  Masters.  See  Computer  Graphics  and  Art, 
February,  1978.  for  a  detailed  explanation  of  how  these  and  similar  images  can  be  created. 
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But  when  the  leaves  hang  trembling, 
The  wind  is  passing  through." 

Textile  patterns.  By  combining  the  video 
graphics  characters  found  on  many  personal  com- 
puters into  patterns,  a  textile  appearance  may  be 
created.  This  may  be  considered  art  in  itself  or  used 
as  a  model  for  a  tapestry  design.  A  simple  program 
could  select  five  graphics  characters  at  random  and 


then  printout  a  full  line  of  each  graphic  character. 
This  pattern  would  then  be  repeated;  surprisingly 
good  results  may  be  obtained.  A  more  sophisticated 
program  could  combine  different  graphics  charac- 
ters within  the  line  in  symmetric  fashion.  Similarly, 
new  quilting  patterns  could  be  designed 
mathematically.  A  sample  textile  pattern  program 
is  presented  in  Listing  6-2. 

Perspective  drawing  aid.   Given  a  set  of 


Listing  6-2:  The  Textile  Generator  Program 


5  PRINTCHR$(147) 

10  PRINTTAB( 45) "COMPUTER  TEXTILE  GENERATOR" 

20  PRINT:PRINT"THIS  PROGRAM  CREATES  RANDOM  'TEXTILE'  " 

30  PRTNT"PATTERNS  FOR  OUTPUT  ON  A  VIDEO  SCREEN." 

40  PRINT"THE  PROGRAM  COULD  BE  MODIFIED  TO  PRINT" 

50  PRINT"0N  A  GRAPHICS  PRINTER" 

60  PRINT"CH00SE  THE  DESIRED  LEVEL  OF  COLOR:" 

70  PRINT" 1)  M0N0C0L0R" 

7  5  PR  I  NT" 2)  STRIPES" 

80  INPUT"3)  MULTICOLOR" ;C 

90  N=INT(RND(0)*9+1) 

100  FOR  X=l  TO  N 

1 10  A$(X)=CHR$(INT(RND(0)-62+161)) 

120  NEXT  X 

130  PRINT  CHR$(147) 

140  FOR  M=l  TO  6: IF  C=l  THEN  GOSUB  250 

150  F0RX=]  TO  N:IF  C=2  THEN  GOSUB  250 

160  F0RY=1  TO  40: IF  C=3  THEN  GOSUB  250 

170  PRINT  A$(X); 

180  NEXT  Y,X,M 

210  GOTO  60 

250  A=INT(RND(0)*16+1) 

260  ON  A  GOSUB  300,310,320,330,340,350,360,370,380,390,400,410,420,430,440,450 

270  RETURN 

299  REM  EACH  LINE  CHANGES  CHARACTER  COLOR 

300  PRINTCHR$(5); : RETURN 


310  PRINTCHR$(28); 
320  PRTNTCHR$(30); 
330  PRINTCHR$(31); 
340  PRINTCHR$(129) 
350  PRINTCHR$(144) 
360  PRINTCHR$(149) 
370  PRINTCHR$(150) 
380  PRINTCHR$(151) 
390  PRINTCHR$(152) 
400  PRINTCHR$(153) 
410  PRINTCHR$(154) 
420  PRINTCHR$(155) 
430  PRINTCHR$(156) 
440  PRINTCHR$(158) 
450  PRINTCHR$(159) 


RETURN 
RETURN 
RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
•.RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
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points  describing  the  (x,  y,  z)  dimensions  of  objects 
in  a  picture,  the  computer  could  use  matrix  manip- 
ulations to  produce  a  new  set  of  points  describing 
the  picture  from  another  perspective  or  viewpoint. 
Figure  6-5  shows  an  example.  Additionally,  if  video 
graphics  or  plotting  capabilities  are  available,  the 
new  picture  could  be  plotted.  Perspective  trans- 
formations are  useful  in  technical  illustration  and 
other  art  forms  as  well. 

As  an  example  of  the  perspective  transforma- 
tions that  can  be  accomplished  using  a  large  array  of 
points,  let  (x,  y)  be  a  coordinate  pair  under  the  "old" 
coordinate  system.  Let  (x  ,  y)  be  the  center  coor- 


dinates  of  the  new  system  rotated  through  angle  0  in 
relation  to  the  old  system.  The  new  coordinates  (x', 
y')  may  be  calculated  with  these  equations: 

x'  =  (x  -  x  )  cos  6  +  (y  -  y0)  sin  6 
y'  =  -  (x  -  x0)  sin  6  +  (y  -  y0)  cos  6 

A  dimension  scaling  program  would  request 
the  largest  dimension  of  the  object  and  the  largest 
dimension  of  the  drawing  of  the  object;  the  scaling 
factor  is  the  ratio  of  these  values.  The  program 
would  eliminate  the  headaches  of  creating  a  scale 
drawing  by  multiplying  the  input  dimensions  of  the 


M 


Fig.  6-5.  Examples  of  the  use  of  mathematical  algorithms  to  alter  drawings. 
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object  by  the  scaling  factor  to  arrive  at  the  scaled 
down  dimensions  for  the  drawing. 

Computer  as  sculptor.  One  hobbyist  has 
created  a  computer-controlled  router  that  can 
sculpt  material  in  accordance  with  a  set  of  pro- 
grammed points  (x,  y,  z).  The  computer  controls 
the  rotation  of  the  sculpturing  material  (y  axis)  and 
the  horizontal/ vertical  (x  and  z  axes)  motion  of  the 
router  by  means  of  servomechanisms.  Eliminating 
one  axis,  the  computer  could  also  control  a  lathe  to 
produce  sculptured  furniture  legs  of  exacting  pro- 
portions. 

Computer  painting.  A  commercial 
computer-controlled  airbrush  system  is  being  used 
to  create  murals  from  photos  or  other  graphic  im- 
ages. The  image  is  digitized  (through  the  use  of  a 
TV  camera  and  A/D  converter)  and  then  painted 
with  much  larger  proportions  by  the  use  of  a  special 
x,  y  "plotting"  system,  which  uses  an  airbrush  in 
lieu  of  a  pen.  An  enterprising  hobbyist  could  con- 
struct such  a  system. 

Computer  posters.  Everyone  has  seen  the 
"computer  portraits"  popular  at  carnivals  and  shop- 
ping malls,  in  which  a  television  picture  of  a  subject 
is  digitized  and  output  on  a  line  printer.  One  hob- 
byist has  circumvented  the  expense  of  a  television 
digitizer  by  taking  an  ordinary  photograph  and 
placing  a  fine  grid  over  it;  he  assigns  each  square  in 
the  grid  a  brightness  level  and  inputs  this  informa- 
tion. The  computer  prints  dark  characters  or  blocks 
for  the  squares  with  a  low  brightness  level  and  vice 
versa  for  squares  with  a  high  brightness.  Through 
this  tedious  and  time-consuming  process  he  creates 
computer  posters  and  protraits  without  the  expense 
of  a  television  camera  and  video  image 
digitizer. 

A  simple  silhouette  poster  may  be  created  by 
specifying  the  number  of  "X"  and  space  characters 
to  print  on  each  line  in  DATA  statements.  For 
example,  to  print  two  spaces,  one  "X,"  one  space, 
and  one  "X"  on  line  number  one,  you  could  create  a 
DATA  statement  that  read  DATA  LI,  S2,  XI,  SI, 
XI  and  use  the  LEFT$  function  to  read  the  first 
character  in  each  data  item.  The  computer  would 
then  print  the  decoded  representation  and  continue 
with  the  next  line.  The  advantage  to  this  method  is 


that  it  requires  less  memory  than  the  use  of  ver- 
batim PRINT  statements  would. 

The  Verbal  Arts 

What  usefulness  could  there  be  in  creating 
poems  by  computer?  Unlike  humans,  computers 
have  the  capability  of  being  "completely"  random. 
They  are  free  from  the  "inspirational"  selection  of 
words  when  composing  a  poem;  "completely"  is  in 
quotes  because  there  will  always  be  some  bias  in- 
troduced by  the  programmer.  A  computer-gener- 
ated poem  can  serve  as  a  stimulus  for  the  human 
poet.  He  can  elaborate  on  the  poem  and  extract  in- 
spirational clues  in  composing  his  own  poetic 
works. 

One  crude  method  for  generating  computer 
poetry  makes  use  of  the  following  format  in  ran- 
domly selecting  words  from  large  lists  of  nouns, 
verbs,  adjectives,  definite  articles,  prepositions, 
conjunctions,  and  adverbs: 

TITLE:  Adjective  +  Noun 

FIRST  LINE:         Adjective  +  Noun  (plural)  + 

Adverb  +  Verb  (plural,  present 
tense)  +  Adjective    +  Noun 
(plural) 

SECOND  LINE:    Adjective  +  Noun  (plural)  + 
Verb  (plural,  present  tense)  + 
Adverb  +  Adjective    +  Noun 
(plural) 

THIRD  LINE:  Article  (definite,  such  as  the) 
+  Noun  (singular)  +  verb  (sin- 
gular, present  tense)  +  Prep- 
osition +  Article  (definite)  + 
Adjective  +  Noun  (singular) 

FOURTH  LINE:    Noun  (plural)  +  Verb  (plural, 
present  tense)  +  Conjunction 
+  Article  (definite)    +  Noun 
(singular) 

To  ensure  some  continuity,  the  second  adjec- 
tive and  noun  of  the  first  line  may  be  repeated  as  the 
first  adjective  and  noun  of  the  second  line.  One 
computer-generated  poem  based  on  this  structure 
read: 
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Listing  6-3:  The  Aphorism  Generator  Program 

10 

REM  APHORISM  GENERATOR 

20 

DIM  A$(50):REM  ADJUST  THE  DIMENSION  EQUAL  TO 
DATA  STATEMENTS 

THE 

NUMBER 

OF 

WORDS  IN  THE 

30 

FOR  X=l  TO  50: READ  A$(X):NEXT 

40 

PRINT  A$(50*RND(1) ) ;  "IS  THE  " ; A$ ( 50*RND ( 1 ) ) 

;"  OF 

";A$(50* 

RND(l) ) 

50 

GOTO  4  0 

60 

REM  ADD  40  NOUNS  OF  YOUR  CHOICE  TO  THE  DATA 

STATEMENTS 

BELOW 

70 

DATA  SUCCESS,  AGONY,  MONEY,  DEATH,  LOVE 

80 

DATA  REWARD,  NAIVETE,  FATHER,  BEAUTY,  SEX 

Clear  Spirits 

Warped  trunks  frailly  dwell  delicate  leaves 

Delicate  leaves  shudder  cunningly  intricate 

lines 
The  image  vanishes  to  the  sharp  second 
Bee  fly  against  the  cloud 

Computers  have  poetic  license  too! 

Along  similar  lines,  an  aphorism  generator 
could  create  aphorisms  ad  infinitum  using  the  form 

" is  the  of ," 

replacing  each  blank  with  a  randomly  selected 
noun.  The  underlying  philosophical  truism  is  up  to 
the  reader.  The  program  in  Listing  6-3  is  an  outline 
for  an  aphorism  generator;  you  supply  your  own  list 
of  nouns. 


The  Musical  Arts 

Within  the  field  of  music,  the  personal  com- 
puter can  be  used  in  a  number  of  different  areas. 
Some  of  these  are  listed  below. 

Music  education.  Possible  music  education 
applications  include  the  following: 

1.  A  graphic,  flashcard  style  quiz  that  could  dis- 
play notes  and  other  musical  notation  on  the 
scale  for  identification  as  practice  in  reading 
music. 

2.  A  quiz  on  pronunciations  and  definitions  of 
music  terminology  (for  example,  andante, 
diatonic,  and  staccato). 

3.  A  musical  staff  drill.  A  graphic  keyboard  and 
staff  could  be  presented,  and  the  computer 
could  select  the  note  on  the  staff  corresponding 
to  the  key  that  is  "pressed."  Key  signature 


drills  could  be  done  in  a  similar  manner. 

4.  A  basic  ear-training  skills  program.  A  com- 
puter capable  of  producing  musical  tones  could 
quiz  students  on  recognition  of  pitches,  inter- 
vals, chords  (major,  augmented,  diminished, 
and  minor),  and  scales  (major,  natural  minor, 
harmonic  minor,  melodic  minor,  whole  tone, 
and  chromatic). 

5.  A  name  the  tune  game.  A  computer-produced 
familiar  tune  can  teach  identification  by  sound 
of  the  degrees  of  the  scale,  using  solfeggio  syl- 
lables or  scale  degree  numbers. 

6.  A  wrong  note  program.  Pitch  error-detection 
can  be  practiced  within  various  combinations  of 
four-voiced  chord  types.  Following  the  selec- 
tion of  a  chord  type,  the  computer  can  visually 
represent  the  chord  and  play  the  sound  with 
one  incorrect  note.  The  student  must  identify 
the  wrong  voice  and  its  corresponding  pitch. 

7.  Harmony  drills.  Computer-produced  aural 
diatonic  chord  progressions  may  be  taught  on 
various  levels  of  difficulty. 

8.  Write  that  tune  game.  The  computer  plays  a 
random  or  preprogrammed  series  of  notes  that 
the  student  must  then  reproduce  on  a  video 
staff  or  on  an  interfaced  musical  keyboard. 

9.  Chord  progressions  practice.  Students  may 
predict  chord  progressions  and  receive  feed- 
back from  the  computer  and  subsequent  visual 
and/or  aural  output. 

10.  Guitar  chords  practice.  Students  can  practice 
finger  placement  required  to  produce  guitar 
chords,  with  visual/aural  feedback. 

11.  Famous  composers  and  their  music  quiz.  A 
quiz-style  program  could  teach  famous  com- 
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poser's  names,  pronunciations,  and  composi- 
tions with  the  aural  output  of  excerpts  from 
those  works. 

12.  Transposition  practice.  The  student  is  pre- 
sented with  a  short  melody  to  transpose  to  a 
randomly-selected  key.  The  computer  verifies 
correct  transposition. 

13.  Tuner  program.  Two  computer-produced 
tones  (separated  by  less  than  one  half-step)  are 
tuned  to  match  each  other  by  the  student,  who 
may  select  an  increase  or  decrease  in  one  of 
the  tones. 

14.  Rhythm  practice.  The  student  could  practice 
playing  rhythm  patterns  on  a  keyboard.  The 
computer  can  analyze  them  for  accuracy,  play 
the  passage  the  way  it  should  be  played,  and 
even  demonstrate  how  the  student's  response 
differed  from  the  expected  response. 

15.  Composition  packages.  This  program,  given 
the  notes  of  a  composition,  can  display  the 
piece  in  standard  musical  notation  and  actually 
play  it.  The  student  can  experiment  with 
tempo,  timbre,  and  musical  envelopes.  Having 
control  of  timbre  and  musical  envelope  allows 
composition  of  a  piece  performed  by  three 
voices  resembling  the  clarinet,  flute,  and  oboe 
and  demonstrates  the  interaction  between 
voices. 

Music  composition.  In  the  past,  computer 
programs  designed  to  compose  music  were  based 
more  upon  random  numbers  than  musical  princi- 
ples. Thus,  the  songs  that  were  produced  could 
only  be  compared  to  a  child  randomly  hitting  piano 
keys.  Lately,  progress  has  been  made  in  developing 
more  complex  programs  that  adhere  to  the  "rules  of 
thumb"  for  composing  particular  types  of  music. 
One  program,  which  used  the  following  rules,  was 
somewhat  successful  in  composing  "pop"  music. 

Basic  melody  requirements: 

1.  The  first  note  must  be  other  than  a  fourth,  a 
flatted  fifth,  a  minor  second,  or  a  ninth. 

2.  An  ascending  minor  second  progresses  to  a 
second,  and  a  descending  minor  second  pro- 
gresses to  the  tonic;  an  ascending  flatted  fifth 
progresses  to  a  fifth,  and  a  descending  fifth 


progresses  to  a  fourth. 

3.  Not  more  than  five  notes  in  descension  or  as- 
cension are  allowed  without  a  complementary 
movement. 

4.  The  melody  should  consist  of  35  to  60  notes. 

5.  The  release  begins  on  a  subdominant  major 
note. 

6.  Melodic  leaps  must  not  be  larger  than  a  major 
tenth. 

7.  A  melodic  leap  may  not  be  followed  by  another 
melodic  leap  larger  than  a  major  sixth. 

8.  No  more  than  three  consecutive  melodic  leaps 
are  allowed. 

9.  No  ascending  or  descending  passage  may  con- 
tain more  than  one  melodic  leap. 

One  of  the  songs  composed  is  represented  as 

/C/F/*DA/G8C:8CF'G/C*AF8G8/G**VDEF''G/ 
ABC:  B8C:  8/C*B8C:  8/D*C/F*DA/G8C:  8C:F"G/ 
G*AF8G8/G***/DEF"G/ABC:  B8C ;  8/C:  *  AVF*** 
/A**C8CD/FE*/B**C:8EF'7G*** 

The  corresponding  music  is  shown  in  Fig.  6-6. 

Rather  than  subjecting  purely  random  notes  to 
these  compositional  rules,  a  probability  distribu- 
tion used  in  conjunction  with  a  random  number 
generator  could  help  to  produce  notes  that  would 
more  likely  fit  the  rules.  The  chart  in  Table  6-1 
illustrates  how  this  might  be  done.  The  name  for 
each  interval  is  given  along  with  the  corresponding 
number  of  notes  on  a  keyboard.  The  next  column 
gives  a  probability  for  selection  of  that  interval, 
which  may  be  changed  according  to  the  composer's 
wishes.  The  following  two  columns  give  the  range 
of  numbers,  generated  by  a  random  number 
generator,  that  corresponds  to  the  probability  of 
selecting  a  given  +  or  -  interval.  In  this  way  a 
random  number  generator  selecting  numbers  from 
1-100  can  provide  a  given  probability  distribution  of 
notes. 

To  further  ensure  the  choice  of  "good"  notes, 
second  or  third-order  probability  distributions 
could  be  specified;  that  is,  for  each  possible  pre- 
ceding interval,  a  probability  distribution  wold  exist 
for  the  purpose  of  chosing  a  particular  value  for  the 
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Fig.  6-6.  An  example  of  music  generated  by  a  computer. 

next  interval.  For  instance,  in  traditional  music,  a 
tritone  is  usually  followed  by  a  stepwise  interval 
(whole  or  half  step);  thus,  the  second-order  proba- 


bility distribution  for  a  tritone  would  be  heavily 
weighted  toward  a  stepwise  interval  in  selecting 
the  next  note  of  the  composition. 


Table  6-1.  The  Probability  Distribution  for  the  Random  Selection  of  Notes. 

NO.  OF  NOTES 

AWAY 

PROBABILITY 

RANDOM  NUMBER  RANGE 

INTERVAL 

FROM  LAST  NOTE 

OF  SELECTION 

IN  +  DIRECTION 

IN  -  DIRECTION 

Unison 

0 

4% 

49-52 

49-52 

Half  Step 

±1 

14% 

53-59 

42-48 

Whole  Step 

±2 

12% 

60-65 

36-41 

Minor  Third 

±3 

10% 

66-70 

31-35 

Major  Third 

±4 

8% 

71-74 

27-30 

Perfect  Fourth 

±5 

12% 

75-80 

21-26 

Tritone 

±6 

2% 

81 

20 

Perfect  Fifth 

±7 

14% 

82-88 

13-19 

Minor  Sixth 

±8 

6% 

89-91 

10-12 

Major  Sixth 

±9 

6% 

92-94 

7-9 

Minor  Seventh 

±10 

4% 

95-96 

5-6 

Major  Seventh 

±11 

2% 

97 

4 

Octave 

±12      • 

6% 

98-100 

1-3 
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The  music  demonstration  program  in  Listing  notes  B,  A,  G  .  .  .  are  -1,  -2,  -3 .  .  ..  Because  the 
6-4  may  be  used  to  transpose  from  any  key  to  any  song  input  must  be  in  the  key  of  C,  sharps  and  flats 
other  key.  It  also  serves  to  compose  a  four  part  are  not  absolutely  necessary  and  are  not  provided 
harmony  for  any  song  written  in  the  key  of  C.  For  for  by  the  program.  The  addition  of  sharps  and  flats 
the  transposing  subprogram,  notes  may  be  entered  would  be  one  improvement  to  experiment  with.  Of 
in  the  following  format:  C  is  C,  C  sharp  is  C#,  C  flat  course,  the  transposing  program  may  be  adapted  to 
is  C  and  so  on  for  A  through  G.  For  the  harmonizer  use  numerical  notation  instead  of  alphanumeric  no- 
subroutine,  notes  are  input  in  a  numerical  format;  tation  and  then  be  used  in  conjunction  with  the 
middle  C  is  0,  the  higher  frequency  notes  D,  E,  F  transposing  subprogram.  Figure  6-7  shows  the 
.  .  .  are  +1,  +2,  +3  .  .  .,  and  the  lower  frequency  numerical  system. 


Listing  6-4:  The  Music  Program 

10  PRINTCHR$(147)TAB(53)"MUSIC  PROGRAM" 

20  PRINT:PRINT"HARMONIZES  AND  TRANSPOSES" 

30  PRINT"SELECT:  1)  TRANSPOSER" 

35  INPUT"        2)  HARMONIZER"; A 

40  ON  A  GOTO  3000,100 

100  REM  HARMONY  COMPOSING  PROGRAM 

110  PRINTCHR$(147)"A  FOUR  PART  HARMONY  WILL  BE  PRODUCED" 

120  PRINT"FR0M  A  GIVEN  MELODY  IN  THE  KEY  OF  C" 

130  DIM  B(5,100),Y(6,6),V(100):RESTORE 

140  FOR  Tl=l  TO  6: FOR  T2=l  TO  6:READ  Y(T1,T2) 

150  NEXT  T2,T1:R1=1 

1 60  DATA  5,4,1,6,2,3,6,4,2,1,5,3,6,4,3,1,2,5,1,5,4,6,3,2,2,6,5 

170  DATA  4,1,3,1,5,3,6,2,4,1,0,-3,-5,-7 

180  PRINT"ENTER  THE  NUMBER  OF  NOTES  IN  THE  MELODY" 

185  INPUT  W9 

190  FOR  E=0  TO  4:READ  B(E,W9):NEXT  E 

200  PRINT"ENTER  NOTES  INDIVIDUALLY  IN  THE  " 

205  PRINT"F0LL0WING  FORMAT:" 

210  PRINT"MIDDLE  C=0" 

220  PRINT"N0TES  ABOVE  MIDDLE  C  ARE  +1 ,+2,+3, . .  ." 

230  PRINT"C0RRESP0NDING  TO  D,E,F" 

240  PRINT"NOTES  BELOW  MIDDLE  C  ARE  -1,-2,-3..." 

250  PRINT"CORRESPONDING  TO  B,A,G" 

260  FOR  Tl=l  TO  W9:INPUT  V(T1):NEXT  Tl 

270  PRINT:PRINT"  #   SOPRANO  ALTO" , "TENOR" , "BASS" 

280  L2=l 

290  FOR  W=W9  TO  1  STEP  -1 

300  IF  W=W9  THEN  760 

305  Rl=l 

310  FOR  R=R1  TO  6 

320  B=V(W):B(1,W)=B:L2=Y(L1,R):B(0,W)=L2 

330  M=B(4,1+W):M(1)=L2-8:M(2)=L2-15 

340  FOR  S=l  TO  2 

350  IF  ABS(M(S)-M)<=5  THEN  NEXT  S-.GOTO  360 

355  A=M(3-S):G0T0  370 

360  IF  B>B(1,W+1)  THEN  A=M(2):G0T0  370 

365  A=M(1) 

370  S=1:B(4,W)=A 

380  FOR  T=0  TO  4  STEP  2 

390  G=B-(T+A):G0SUB  790: IF  G=0  THEN  410 

400  K(S)=A+T:S=S+1 


145 


410  NEXT  T 

420  IF  S>3  THEN  690 

425  FOR  U=0  TO  6 

430  F(3,U)=K(1):F(0,U)=0:F(2,U)=K(2) 

440  K=K(2):J=K(1):K(2)=J+7:K(1)=K 

450  NEXT  U 

460  FOR  U=0  TO  6 

470  FOR  E=2  TO  3 

480  K=F(E,U) 

490  IF  (5-E-4>K)  OR  (17-E*4<K)  OR  (ABS(K-B(E,W+1))>5)  THEN  610 

500  B(E,W)=K:IF  B(2*E-3,W)<=B(2*E-2,W)  THEN  610 

505  NEXT  E 

510  IF  L1=L2  THEN  570 

515  FOR  El=l  TO  4 

520  FOR  E2=E1+1  TO  4 

530  M=B(E1,W+1)-B(E2,W+1) 

540  G=M:GOSUB  790: IF  (G=0)  OR  (G=4)THEN  550 

545  GOTO  560 

550  IF  B(E2,W)-B(E2,W+1)=B(E1,W)-B(E1,W+1)  THEN  610 

560  NEXT  E2,E1 

570  FOR  E=2  TO  3 

580  M(E)=ABS(B(E,W)-B(E,W+1)) 

590  NEXT  E 

600  F(0,U)=M(2)+M(3):G0T0  620 

610  F(0,U)=88 

620  NEXT  U 

630  V=II:FOR  U=0  TO  6 

640  V1=F(X1,U) 

650  IF  V1>V  THEN  660 

655  V=V1:U9=U 

660  NEXT  U 

670  IF  V=88  THEN  690 

680  B(3,W)=F(3,U9):B(2,W)=F(2,U9):G0T0  760 

690  NEXT  R 

700  W=W+1:IF  W9<>W  THEN  710 

705  PRINT'PROGRAM  CANNOT  CONTINUE" :  STOP 

710  L1=B(0,W+1):L2=B(0,W) 

720  FOR  R=l  TO  6 

730  IF  L2=Y(L1,R)  THEN  750 

740  NEXT  R 

750  R1=R+1:G0T0  310 

760  PRINT  W;"   ,f;B(l,W);"    "  ;B(2 ,W) ,B(3 ,W) ,B(3  ,W) 

770  L1=L2:NEXT  W 

780  END 

790  G=G-INT(G/7)*7:RETURN 

3000  REM  TRANSPOSER 

3010  REM  READS  HARMONY  PROGRAM  DATA  FIRST 

3020  FOR  X=l  TO  36 

3030  READ  A: NEXT  X 

3040  DIM  A$(18,18),W$(100) 

3050  FOR  B=l  TO  17 

3060  FOR  C=l  TO  17 

3070  READ  A$(B,C) 

3080  NEXT  C,B 

3090  INPUT"ENTER  THE  ORIGINAL  KEY  (E.G.,  C#)";B$ 

3100  FOR  X=l  TO  17 

3110  IF  B$=A$(1,X)  THEN  3120 
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3115  NEXT  X 

3120  INPUT"ENTER  THE  KEY  TO  TRANSPOSE  TOM;C$ 

3130  FOR  T=l  TO  17 

3140  IF  C$=A$(1,T)  THEN  3150 

3145  NEXT  T 

3150  PRINT"ENTER  THE  NOTES  OF  THE  SONG  SEPARATELY" 

3160  PRINTMENTER  'END'  TO  END":R=1 

3170  INPUTW$(R) 

3180  IF  W$(R)="END"  THEN  3190 

3185  R=R+1:G0T0  3170 

3190  R=R-1 

3200  FOR  Z=l  TO  R 

3210  FOR  P=l  TO  17 

3220  IF  W$(Z)=A$(P,X)  THEN  3230 

3225  NEXT  P 

3230  PRINTA$(P,T);"  "; 

3240  NEXT  Z 

3250  DATA  C ,C# ,D- ,D,D# ,E-,E,F,F#,G-,G,G#,A-,A,A#  ,B-,B,C# ,D 

3260  DATA  D,D# ,E,E,F,G- ,G ,G  ,G#  ,A ,A ,A#,B,B,C,D-,D,D,D#,E,E,F 

3270  DATA  G-,G ,G ,G# , A , A ,A#,B,B,C, D,D#,E-,E,F,F,F#,G,G#,A-, A ,A# 

3280  DATA  B- ,B,C ,C ,C# ,D# ,E,E,F,F#,G-,G, A-,A,A,A#  ,B,B,C,C# ,D-,D 

3290  DATA  E-,E,E,F ,F# ,G-,G ,A-,A , A ,A# ,B,B,C ,C#,D- ,D,E,F,F ,F# ,G,G 

3300  DATA  G# , A , A# ,B- ,B,C ,C ,C#,D,D,D# ,F,F#,G-,G,G# ,A-,A,B-,B,B,C 

3310  DATA  C#,D-,D,D#,E-,E,F#,G,G,G#,A,A,A#,B,C,C,C#,D,D,D#,E,E,F 

3320  DATA  G- ,G ,G ,C# , A , A, A# ,B,C,C,C# ,D,D,D# ,E ,E,F,G,G# ,A- ,A,A# ,B- 

3330  DATA  B,C ,C# ,D-,D,D# ,E-,E,F,F,F# ,G# , A, A ,A#,B,B,C  ,D- ,D,D,D# ,E 

3340  DATA  E,F,F# ,G- ,G , A- , A , A  ,  A# ,B,B,C,D- ,D,D,D#,E,E,F,F# ,G-,G 

3350  DATA  A , A# ,B- ,B,C ,C ,C# ,D,D# ,E-,E,F,F,F#,G,G,G#  ,A#,B,B,C,C# ,D- 

3360  DATA  D,E- ,E,E,F,F# ,G- ,G ,G# , A-,A ,B-,B,B,C,C#  ,D-,D,E-,E,E,F,F# 

3370  DATA  G-,G,G#, A-.A ,B,C ,C ,C#,D,D,D# ,E,F,F,F#,G,G,G# , A , A ,A# 
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Fig.  6-7.  A  numbering  system  for  harmonizing  programs  and  other  music-composing  programs. 
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Additional  possibilities  for  using  your  personal 
computer  in  music  composition  include  the  follow- 
ing: 

1.  Produce  a  stricter  set  of  rules  for  composition 
than  those  given  above;  rely  less  upon  ran- 
domness. 

2.  Develop  programs  to  compose  in  assorted 
musical  styles  including  classical,  rock  and 
roll,  and  children's  music.  Computer  musicians 
have  applied  statistical  analysis  to  various 
styles  and  composers  to  determine  charac- 
teristic probability  distributions.  Random 
numbers  subjected  to  these  probability  criteria 
can  produce  music  reminiscent  of  the  original 
style. 

3.  Develop  programs  to  compose  songs  for  given 
lyrics  by  using  the  timing  of  each  syllable  to 
time  the  duration  of  the  notes  accordingly.  The 
ambitious  programmer  might  try  to  link  a 
lyric-producing  program  with  a  music  compo- 
sition program;  some  unusual  results  would 
undoubtedly  be  produced. 

4.  A  popular  melody  could  be  mathematically 
transformed  to  produce  a  new  melody,  and  this 
new  melody  would  likely  be  more  tuneful  than 
compositions  based  on  random  number 
generators,  fractals,  or  probability  distribu- 
tions. The  original  melody  would  be  numeri- 
cally encoded  such  that  each  note  and  note 
duration  has  a  unique  number.  With  the  melody 
so  coded,  an  algorithm  could  be  applied  to  each 


note,  translating  that  note  into  another.  The 
simplest  such  algorithm  could  reflect  each  note 
around  a  central  value,  transforming  high  notes 
into  low  ones  and  vice  versa.  It  could  also  be  a 
mathematical  formula,  but  extensive  ex- 
perimentation would  be  necessary.  A  program 
that  performs  a  simple  song  transformatin  is 
presented  in  Listing  6-5. 
A  program  that  performs  a  simple  song  trans- 
formation is  presented  in  Listing  6-5. 

5.  Given  the  score  of  a  music  piece  written  for  a 
solo  instrument  (for  example,  the  piano),  the 
computer  could  transpose  and  analyze 
melodies,  bass,  and  counter  rhythms  to  pro- 
duce sheet  music  versions  for  other  instru- 
ments. 

6.  A  microcomputer  connected  to  a  player  piano 
via  a  solenoid  interface  could  digitally  record 
songs  you  play  or  song  notes  you  input.  The 
song  could  be  stored  on  cassette  or  floppy  disk 
and  recalled  to  be  played  at  normal  speed, 
faster,  slower,  backwards,  with  staccato,  and 
so  on. 

7.  A  microcomputer  interfaced  with  a  mono- 
phonic  electronic  synthesizer  could  theoreti- 
cally produce  a  polyphonic  effect,  add  a  con- 
tinuous bass  or  beat  pattern,  and  perform  a 
sequence  of  switching  or  mixing  for  live  per- 
formances. 

8.  From  a  given  composition,  a  simplified  version 
could  be  extracted  by  the  computer  (the 


Listing  6-5:  The  Simple  Song  Transformation  Program 

10 

REM  SIMPLE  SONG  TRANSFORMATION 

20 

REM  REFLECTS  NOTES  AROUND  A  CENTRAL 

VALUE 

30 

READ  N:REM  SET  N-NUMBER  OF  NOTES  IN 

THE  SONG 

35 

DIM  M(N) 

40 

FOR  X=l  TO  N 

50 

READ  M(X) 

60 

M(X)=10+(10-M(X)  )  :REM  REFLECT  AROUND  NOTE  #10 

70 

NEXT  X 

80 

FOR  X=l  TO  N 

90 

PRINT  M(X) ;" 

10C 

NEXT  X 

11C 

END 

12C 

REM  FIRST  DATA  POINT  IS  #  OF  NOTES 

IN  SONG 

130 

REM  FOLLOWED  BY  NOTES  OF  SONG 

14C 

DATA  10 

150 

DATA  4,2,5,7,5,5,13,1,12,3 
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melody  is  usually  carried  by  the  highest  notes, 
the  bass  by  the  lowest)  and  printed  in  standard 
musical  notation.  Also,  a  given  piece  could  be 
arranged  so  that  all  chords  are  broken  up  into 
varying  arpeggios. 
9.   Given  a  melody,  the  computer  could  be  pro- 
grammed to  compose  a  bass  counter-melody. 
The  following  formula  is  useful  as  a  part  of  a 
musical  tone  generation  program  based  upon  the 
numbering  notes  according  to  octave  (V),  where 
middle  C  is  in  the  fourth  octave,  and  according  to 
position  within  the  octave  where  C=l,  C#=2  .  .  . 
B=12. 

1  f  V    _!_        P-22 

og     —  =  V  +    — 

2     55  12 

where  f  =  frequency  in  Hz. 

Computer  controlled  synthesizers.   In 

1982,  a  group  of  synthesizer  manufacturers  de- 
veloped a  standardized  interface,  called  MIDI 
(Musical  Instrument  Digital  Interface),  to  enable 
communication  between  synthesizers  and  comput- 
ers. Each  key  is  encoded  in  a  fashion  similar  to  a 
computer  (ASCII)  keyboard.  For  each  key  struck,  a 
series  of  codes  are  sent:  a  NOTE  ON  signal,  a 
PITCH  signal,  a  VELOCITY  signal,  and  (depending 
on  the  machine)  other  signals  specifying  pitch 
blends,  patch  changes,  key  release,  after  touch 
pressure,  and  front  panel  changes.  This  information 
can  be  sent  to  any  other  MIDI  synthesizer  so  that 
two  or  more  keyboards  can  perform  in  exact  syn- 
chronization, although  the  patches  are  different  on 
each  machine.  Special  codes  can  indicate  that  only 
specified  synthesizers  are  to  respond  to  the  fol- 
lowing code.  Through  a  serial  interface,  this  infor- 
mation can  also  be  sent  to  a  computer,  which  may 
serve  as  a  polyphonic  sequencer  or  imitator  of  a 
multi-track  tape  machine.  The  computer  may  re- 
cord, edit,  store,  and  play  back  your  music  or  play 
music  entered  through  the  ASCII  keyboard.  A  com- 
poser can  quickly  change  tempo,  pitch,  instru- 
ments, accents,  and  so  on  with  the  aid  of  such  a 
system,  which  is  capable  of  producing  a  flawless 
rendition. 

The  Computer  Music  Journal  (P.  0.  Box  E, 
Menlo  Park,  CA  94025)  is  a  good  source  of  infor- 


mation on  composing,  scoring,  and  playing  music  on 
computers,  for  the  professional  or  amateur. 

HOBBIES 

The  microcomputer  can  perform  invaluable 
services  for  those  involved  in  almost  all  hobbies. 

Photography 

The  serious  photographer  should  investigate 
the  use  of  the  computer  to  obtain  more  precise 
values  for  such  things  as  development  times,  light 
exposures,  and  filters  through  the  use  of 
mathematical  formulae.  For  example,  the  standard 
exposure  meter  assumes  the  following:  1)  for  any 
emulsion,  the  curve  of  the  density  versus  the  log  of 
the  exposure  yields  a  straight  line  and  is  character- 
ized by  a  single  factor— speed,  2)  time  and  intensity 
of  light  are  interchangeable  to  provide  a  certain  ex- 
posute  (reciprocity).  Actually,  these  assumptions 
are  only  approximations  of  true  values.  In  extreme 
cases,  reciprocity  does  not  work;  the  density  ver- 
sus log  of  exposure  curve  is  not  linear,  and  emul- 
sions have  differeint  contrasts  and  latitudes.  A  ref- 
erence manual  describing  the  mathematical  calcu- 
lations of  photography  should  describe  the  form- 
ulae used  to  take  these  factors  into  account. 

Other  ways  in  which  photographers  can  use 
microcomputers  include  the  following  areas. 
1.  Exposure  compensation  is  useful  in  the 
darkroom  to  calculate  the  exposure  required  to 
compensate  for  a  change  in  photo  enlargement 
magnification.  Using  the  inverse  square  law,  if 
you  have  data  on  a  "perfect"  print  expressed  as 
enlarger  head  height  above  the  easel  (H  )  and 
time  of  exposure  (TQ),  the  formula  for  com- 
puting the  new  time  of  exposure  (T  )  at  the 
new  height  (H^)  with  the  same  aperture  is 


H, 


TN     = 


H, 


x  T 


A  useful  program  could  calculate  exposure 
times  for  a  range  of  specified  heights  at  all 
available  f-stops  to  permit  easy  enlargement  of 
a  negative  to  a  given  size. 
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2.  Fill-in  flash  computation  is  used  to  determine 
the  correct  lens  f-stop  when  a  flash  is  used  in 
the  presence  of  strong  ambient  light  to  fill-in 
undesired  shadows. 

3.  If  you  intended  to  do  specialized  photography 
requiring  homebuilt  equipment,  the  computer 
could  be  useful  in  optical  and  dimension  calcu- 
lations. 

4.  Automated  control  of  darkroom  equipment  (in- 
cluding such  features  as  temperature  correc- 
tion for  chemicals,  timer,  development  cal- 
culator) could  expedite  the  development  pro- 
cess. Alternatively,  the  computer  could  serve 
as  a  timer  and  reminder  for  steps  to  be  taken  in 
the  development  process. 

5.  An  inventory  of  slides  or  photographs  could  be 
stored  on  disks  or  tapes,  and  topics  could  be 
indexed  and  cross-referenced.  Thus,  to  create 
a  slide  show  of  a  particular  topic,  you  can  use 
the  computer  to  determine  all  relevant  slides 
and  output  a  listing  of  each  along  with  its  loca- 
tion and  remarks. 

6.  A  simple  switching  interface  to  a  cassette  re- 
corder and  slide  projector  could  automate  a 
complete  audio-visual  slide  presentation.  An 
exotic  audio-visual  light  show  could  be  con- 
trolled in  a  similar  manner. 

7.  Focal  length  conversions  from  one  camera  to 
another,  based  on  the  diagonal  or  horizontal 
angle  of  view,  could  be  done. 

8.  A  program  could  be  written  to  calculate  film 
speed  (ASA),  flash  ECPS  value,  or  flash  guide 
number,  given  the  other  two  values.  Once  the 
flash  guide  number  is  known,  the  maximum 
f-stop  for  the  distance  from  the  flash  to  subject, 
may  be  calculated. 

Guide  number 

f-stop  =   

distance 

The  published  flash  guide  number  is  for  one 
speed  of  film  only.  If  you  use  a  different  film  with  a 
different  speed,  the  new  guide  number  may  be 
found  using  the  formula 

where  NG  =  new  guide  no. 
OG  =  old  guide  no. 


NF  =  new  film  speed. 

PF  =  published  film  speed. 

NG  =  0g-     /£§■ 
V  PF 

9.  Close-up  photography  values  for  subject  dis- 
tance, required  lens  focus  setting,  or  field  of 
coverage  could  be  calculated  given  the  other 
three  values. 
10.  The  depth  of  field  indicates  the  distance  from 
some  point  in  front  of  the  subject  to  some  point 
in  back  of  the  subject  for  which  a  given  photo- 
graph will  be  acceptably  sharp.  A  computer 
program  could  mathematically  determine  how 
the  desired  near  and  far  distances  can  be  ob- 
tained, in  terms  of  the  f-stop  and  distance  set- 
tings to  use.  The  hyperfocal  distance,  or  the 
nearest  distance  for  which  a  lens  can  be  focused 
to  give  satisfactory  definition  of  infinity,  is 
given  by 


H  = 


IL 

f-d 


where  H  =  hyperfocal  distance 
F  =  focal  length  of  lens 
f    =  f/n  umber 
d  =  diameter  of  circle  of  confusion. 

11.  A  photograph  of  your  video  screen  displaying 
alphanumerics  or  graphics  could  be  used  to 
title  home  slide  shows  or  movies.  A  recom- 
mended procedure  is  to  darken  the  room  com- 
pletely, use  a  tripod,  and  shoot  with  ASA  125 
Plus  -X  at  f/1.4,  1/8  second. 
For  serious  hobbyists  or  professionals,   a 
BASIC  program  for  microcomputers  to  design  and 
evaluate  lenses  was  described  in  Photonics  Spectra, 
December  1983,  pp.  58-62. 

Animated  films.  Although  most  microcom- 
puters are  not  fast  enough  to  display  high- 
resolution  real-time  animation,  a  time-lapse  film 
could  be  made  with  the  end  result  being  equivalent 
to  real-time  graphics.  The  graphic  resolution  should 
be  a  minimum  of  200  by  200  individually  definable 
blocks.  Much  better,  although  much  more  expcn- 
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sive,  would  be  a  system  equipped  with  a  plotter  to 
draw  all  of  the  figures  necessary  to  produce  an 
animated  film  sequence.  The  three  dimensional 
rotation  of  an  object  is  a  popular  film  subject  due  to 
the  relative  ease  in  programming. 

Amateur  Radio 

The  ham  radio  or  citizen's  band  radio  en- 
thusiast could  use  a  personal  computer  to  assist 
with  his  hobby  in  these  ways: 

Morse  code  tutor.  Computerists  interested 
in  passing  the  Morse  code  test  to  become  amateur 
radio  operators  could  use  their  machines  to  quiz 
themselves  both  visually  and  audibly.  The  visual 
representation  of  Morse  code  is,  of  course,  a  series 
of  dots  and  dashes:  — .  -.  — ....  Those  of  you  who  are 
using  a  TRS-80  without  a  built-in  speaker  can  use 
one  of  the  following  methods  to  obtain  the  audible 
representation  of  the  code. 

1.  Use  an  interfaced  tone  output  speaker 

2.  Use  timing  loops  to  generate  tones  of  a 
certain  duration  on  an  AM  radio  placed  next 
to  the  CPU. 

The  standard  method  of  learning  Morse  code  is 
to  first  study  the  visual  representations,  and  sec- 
ond, to  transcribe  an  audio  transmission  at  a  gradu- 
ally increasing  rate.  A  program  similar  to  the  gen- 
eral  CAI  program  described  in  Chapter  5  could  be 
used  to  requiz  you  on  the  codes  you  have  missed. 

Message  displayer.  By  using  a  Morse  code 
decoder/sender  interface  between  the  radio  and 
your  computer,  received  and  sent  messages  could 
be  displayed  on  a  video  monitor  in  English,  allowing 
the  computer  to  "translate"  Morse  code  (or  some 
other  code)  to  English  and  vice  versa. 

Message  monitor.  The  computer  could 
monitor  a  specified  frequency  for  a  particular  audio 
signal  or  coded  message.  Transmissions  im- 
mediately following  this  signal  would  be  recorded 
digitally  or  on  cassette  tape.  Thus,  you  need  not 
attend  to  the  radio  constantly  to  receive  a  message. 
Received  messages  could  also  be  forwarded  au- 
tomatically on  another  frequency  to  another  station 
in  a  network. 


Message  relay.  A  stored  message  could  be 
sent  at  the  proper  tune  if  the  station  operator  was 
unable  to  send  it  personally. 

Controller.  Add  intelligence  to  your  test 
equipment  or  radio  with  a  controlling  microproces- 
sor. Te-t  sequences  could  be  done  automatically. 

Station  log  maintainer.  Maintain  your  sta- 
tion log  automatically —  All  entries  could  be  stored, 
and  classified,  and  special  reports  generated  (for 
example,  In  >w  many  countries  have  been  contacted? 
Have  there  been  any  repeat  contacts?).  If  you  hear 
someone  and  you're  not  sure  whether  or  not  you 
talked  with  him  6  months  ago,  you  could  type  in  his 
name  or  <  all  letters  and  find  out  the  last  contact 
from  a  computer  database  of  log  entries. 

Error  correcting  code  senders.  Error  cor- 
recting codes  could  be  automatically  generated  to 
improve  communications. 

Contest  record  keeper.  Several  ham  radio 
contests  haw  utilized   small  computers  to  keep 


tra< 


i  acts. 


Collections 

Win  iher  it  be  books,  magazines,  coins, 
stamps,  ant  mues,  or  niatchbook  covers,  most 
everyone  collec's  something.  The  microcomputer 
can  help  \  ou  organize  and  present  your  collection 
Collection  inventory.  If  your  collection  in- 
volves many  items,  such  as  hundreds  or  even 
thousand-  of  stamps,  it  is  certainly  a  good  idea  to 
catalog  each  item.  A  computer  database  program, 
as  described  m  the  first  chapter,  is  ideal  for  main- 
taining i:-*ge  collections  of  any  kind. 

in  addition  m  storing  an  individual  record 
specifying  ail  port  merit  information  on  each  item, 
the  compcter  would  also  be  able  to  categorize, 
cros>-iude\.  and  generate  special  lists  of  items.  A 
sp<\  nil  list  conic  include  all  items  that  have  a  par- 
ticular characteristic,  for  instance,  a  list  of  all 
Bntmh  -tamps  m  ail  stamps  issued  in  1979. 

i  Ids  to  use  in  setting  up  a  stamp  collec- 
atubase  might  look  like  this: 
1,    CATALOG  NT  MBER 
1.    NAME  OR  IDENTIFYING  TITLE 
T    DENOMINATION 


T 
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4.  SUBJECT 

5.  ORIGINAL  COST 

6.  CONDITION 

7.  DATE  ISSUED 

8.  QUALITY 

9.  CURRENT  VALUE 

10.  COUNTRY  OF  ORIGIN 

11.  DESCRIPTIVE  INFORMATION 
HISTORY 

12.  WHERE  PURCHASED 

13.  MISCELLANEOUS  COMMENTS 


This  stamp  pair  depicts  the  ascent  of  man  upon  the 
surface  of  the  moon. 

Interested  persons  can  be  instructed  how  to 
obtain  information  on  a  particular  item,  or  else  the 
computer  can  present  a  continuous  display  of  each 
item  in  sequence;  this  technique  can  save  you  from 
monotonous  repetition  of  information  to  visitors  at 
AND  an  exhibition.  Businessmen  at  expositions  could 
put  their  personal  computer  to  similar  use  in  ex- 
plaining products. 


Using  the  database  program,  you  could  re- 
quest the  sum  of  field  5  or  9  for  all  records  to 
determine  the  original  cost  and  current  value  for  the 
entire  collection. 

Collection  management  on  your  personal  com- 
puter allows  more  time  for  the  fun  of  collecting 
without  the  bother  of  record-keeping.  Additionally, 
a  cassette  or  floppy  disk  copy  of  the  inventory  could 
be  stored  in  a  safe  location  in  the  event  an  insured 
collection  is  destroyed. 

Collection  narrator.  Hobbyists  with  collec- 
tions will  find  that  their  personal  computer  with 
video  display  makes  an  excellent  visual  narrator  of  a 
collection.  For  example,  a  stamp  collector  created  a 
file  of  his  entire  collection,  with  information  on  each 
item  randomly  accessible.  His  narrations  were 
similar  to  this: 


Decade  of  Space  Achievement  Issue 

Issued:  August  2, 1969  Purchased:  September  1, 

1969 

Purchase  price:  .16  Value:  .60 


Astronomy 

Potential  applications  for  your  personal  com- 
puter in  amateur  astronomy  include  the  following: 

1.  Locate  and  identify  stars— Calculation  of  dec- 
lination, sidereal  hour  angle  from  observed 
altitude,  azimuth,  and  time. 

2.  Make  records  of  observations  efficiently  in 
computer  format  for  quick  retrieval. 

3.  Interface  telescope  drive  mechanics  to  a  mi- 
croprocessor controller  for  automatic  photo- 
graphic observations.  For  more  information 
see  InfoWorld,  Volume  5,  Number  47  (12/83) 
pp.  45-46  and  Sky  and  Telescope,  January  1981, 
p.  71. 

4.  Interconvert  astronomical  units,  kilometers, 
light  years,  and  parsecs. 

5.  Calculate  and  plot  orbits  of  satellites  and 
planets. 

The  astronomy  demonstration  program  in 
Listing  6-6  calculates  the  relative  position  of  Venus 
in  degrees  and  hours  from  the  sun  for  a  given  date. 


Listing  6-6:  The  Astronomy  Demo  Program 

10  PRINTCHR$(147)TAB(48)"ASTR0N0MY  DEMO  PROGRAM" 

20  PRINT:PRINT"THIS  PROGRAM  CALCULATES  THE  RELATIVE" 

25  PRINT"P0STTI0N  OF  VENUS  AND  THE  SUN." 

30  PRINT"ENTER  THIS  YEAR  AS  TWO  DIGITS  (E.G.  " 

33  INPUT"' 84'  FOR  1984)" ;Y 

35  PRINT  "ENTER  THE  NUMBER  OF  DAYS  SINCE  DEC.  1" 

37  INPUT"OF  LAST  YEAR  (E.G.  FEB.  5=36  DAYS)";DA 

39  PRINTTAB(250)"BE  PATIENT" :  PRINT"THIS  PROGRAM  TAKES  SEVERAL  MINUTES  TO 

40  X=364-INT((Y-50)/4)+365-((Y-50)-INT((Y-50)/4))+DA 

50  PI=3. 141 592  :A=PI/180:C=A*.  9856  :B=180/PI:D=99.2*A:E=D+C*X 
53   REM  MAY   USE  COMMODORE'S   PI   KEY   IN  PLACE  OF  VARIABLE  PI 
55   IF  E<PI*2  THEN    70 


RUN" 
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60  E=E-PI*2:G0T0  55 

70  E=STN(E-A-'U05)-;'-1.9-A+E:F=A-;'-1.602:G=A-80.85:H=G+F-;'-X 

80  IF  H<PT-;;-2  THEN  100 

90  H=H-PI*2:G0T0  80 

100  H=H+SIN(H-A*135)*.8*A 

110  J=SIN(H-A*232)*.0055+.7233 

120  K=H-E:I=SIN(E-A*195)*. 016+1  :M=-PI/2 

130  L=SQR(J22+I22-2-J-;'-I-;'-C0S(K)) 

135  N=SIN(K)*(J/L)+SIN(M) 

140  IF  N<0  THEN  M=PI/3600+M:G0T0  135 

150  R=M*12/PI 

160  PRINT"THE  RELATIVE  LOCATION  OF  VENUS  IS";M*B 

170  PRINT"DEGREES  FROM  THE  SUN,  EQUAL  TO";R 

180  PRINT"HOURS  FROM  THE  SUN" 

190  END 


A  series  of  BASIC  astronomical  calculation 
programs  for  ephemeris  of  comets  and  minor 
planets,  locations  of  celestial  objects,  and  altitude 
and  azimuth  of  the  sun  appeared  in  80  Microcom- 
puting, October  1983. 

Gardening 

Writing  a  garden  analysis  program  for  one- 
time use  would  not  be  a  practical  idea,  but  your 
friends  and  neighbors  could  use  such  a  program,  and 
you  may  be  able  to  sell  the  completed  software  to  a 
local  garden  supply  store.  A  complete  analysis  pro- 
gram is  more  complicated  than  it  appears  on  the 
surface,  no  pun  intended.  These  are  some  of  the 
factors  to  consider: 

1.  pH,  water,  soil  density,  and  sunshine  levels  of 
the  plot. 

2.  Desired  pH,  water,  soil  density,  and  sunshine 
levels  for  the  plants  to  be  planted. 

3.  Nitrogen,  phosphorus,  and  potassium  contents 
in  the  soil  compared  to  plant  requirements. 

4.  The  size  of  the  garden. 

Proper  planning  will  allow  you  to  position 
certain  vegetables  that  ward  off  insects  next  to 
others  that  need  this  protection.  The  space  needed 
between  adjacent  plants  should  also  be  considered. 
Specific  plant  requirements  and  the  harvest  times 
of  the  vegetables  could  be  printed,  along  with  a 
graphic  presentation  of  the  garden  plot: 

BEETS  

CORN  


RADISHES  ::::::::::::::::::::::::::::::::::::::::::::::: 
TOMATOES  

Additional  outputs  could  explain  how  to  form  a 
compost  heap  and  how  to  use  fertilizer.  One  gar- 
dener uses  his  personal  computer  to  track  insec- 
ticide and  herbicide  application,  precipitation  dates 
and  amounts,  temperature,  and  chores  to  be  done. 
Tables  of  times  to  plant,  spray,  and  prune  can  also 
be  stored  for  ready  reference  and  to  simplify  plan- 
ning. 

Sports 

A  file  of  team  and  player  statistics,  player's 
names  and  numbers,  and  other  sports  information 
could  be  stored  on  the  computer  (preferably  on 
floppy  disk)  for  quick  retrieval  by  the  television 
sports  fan.  Sports  statistics  could  be  compiled, 
graphed,  and  analyzed.  Probability  forecasting  of 
score  and  point  spread  based  upon  past  perfor- 
mance of  opposing  teams  could  be  accomplished. 
The  computer  could  also  "learn"  from  its  mistakes, 
retaining  the  outcomes  of  many  games  in  memory. 

At  local  sporting  events  a  microcomputer 
could  be  useful  in  maintaining  scores,  team 
records,  and  player  records  or  statistics  as  the 
game  progresses  (for  use  by  the  announcer  of  for 
permanent  records). 

A  series  of  elapsed-time  computations  could 
be  accomplished  efficiently  with  the  proper  pro- 
gram. A  programmable  calculator  could  serve  as  a 
digital  stopwatch  as  well. 

Bowling,  golf,  and  other  sports  involving  the 
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tedious  calculation  of  averages  and  other  statistics 
for  a  league  are  well-suited  for  computer  book- 
keeping. Sell  such  a  computer  service  or  offer  it 
gratuitously  to  your  local  bowling  alley  or  golf 
course. 

Gambling 

Your  computer  could  become  a  helpful  advisor 
for  those  who  play  poker  and  various  other  card 
games.  All  information  available  (for  example  the 
cards  in  your  hand  and  the  amount  of  the  bet)  would 
be  input  before  each  round,  and  an  analysis  based 
upon  the  laws  of  probability  could  determine  your 
best  move.  (Perhaps  your  opponents  would  object 
to  this  advantage!).  For  example,  these  are  the 
probabilities  for  obtaining  particular  poker  and 
bridge  hands: 


P    = 


n: 


Royal  flush 

649,739  to  1 

Straight  flush 

72,192  to  1 

Full  house 

693  to  1 

Flush 

508  to  1 

One  pair 

1.37  to  1 

Straight 

254  to  1 

13  card  suit 

158,753,389,899  to  1 

12  card  suit 

367,484,698  to  1 

Nine  honors 

104  to  1 

Yarborough— 

1,827  to  1 

no  honors 

Four  aces/four 

378  to  1 

of  a  kind 

Three  of  a  kind 

47  to  1 

Two  Pair 

21  to  1 

One  Pair 

2  to  1 

Nothing  of  Interest 

2  to  1 

These  probabilities  were  in  part  computed  by 
the  use  of  the  formulas  for  combinations  and  per- 
mutations. The  number  of  combinations  of  n  things 
taken  four  at  a  time  is  designated  by 


C    = 


ni 


(n  -  r)!(r!) 


(n  -  r)! 


and  the  number  of  permutations  of  n  objects  taken  r 
at  a  time,    P  is 


The  mathematical  concept  of  expectation  is 
very  useful  in  determining  when  to  drop  out  of  a 
poker  hand  or  other  gambling  operation. 

Expectation  =  probability  times  winnings 

For  example,  suppose  a  poker  player  plans  to  call  a 
bet  of  $2,  which  would  increase  the  pot  (potential 
winnings)  to  $14.  If  he  can  see  from  the  exposed 
cards  that  his  probability  of  winning  is  .4,  his  ex- 
pectation is .  4  x  $14  =  $5. 60,  for  which  he  must  pay 
$2.  Since  the  expectation  is  worth  more  than  the 
purchase  price,  he  should  call  the  bet.  This  is  but 
one  concept  to  incorporate  with  a  betting  analysis 
program. 

Other  forms  of  gambling  (for  example,  football 
betting  and  jai-alai)  may  be  computer-analyzed 
based  upon  past  performances  of  the  opponents  and 
a  confidence  level  established  to  conservatively 
pick  the  winner/point  spread.  Statistics  to  be  in- 
corporated in  a  database  could  include  each  team's 
win/loss  record,  the  coach,  the  location  (home  or 
away),  the  playing  surface,  and  each  team's  record 
against  the  point  spread.  A  complete  computer 
analysis  of  hundreds  of  games  played  from  any  one 
sport  could  yield  a  system  for  predicting  future 
outcomes  through  the  use  of  statistical  cross- 
correlation  between  all  variables. 

Fishing 

Potential  applications  for  serious  fishermen 
include  the  following: 

1.  The  analysis  of  weather  patterns  and  times  in 
order  to  forecast  the  ideal  time  to  fish. 

2.  The  recording  of  weight  and  species  of  catch, 
locations  fished,  weather,  tides,  depth  and 
temperature.  Use  this  statistically  correlated 
data  for  future  reference.  A  portable  mi- 
crocomputer with  an  A/D  converter  could 
gather  some  of  this  data  automatically.  One 
lobster  fisherman  has  statistically  analyzed  his 
placement  of  lobster  traps  on  his  microcom- 
puter to  optimize  his  catch. 
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3.   The  computation  of  high  and  low  tide  times  and 

time  of  sunrise/sunset. 

The  computation  of  times  of  sunrise/ 
sunset  and  high  and  low  tides.  Pilots  as  well  as 
fishermen  will  find  a  sunrise/sunset  calculating 
program  useful.  To  keep  such  a  program  as  simple 
as  possible,  tide  or  sunrise  data  from  previous  days 
could  be  entered  to  eliminate  highly  technical  cal- 
culations. The  times  for  future  sunrises  or  sunsets 
may  then  be  projected  by  linear  regression  or  mov- 
ing average  calculation. 

For  those  inclined  to  astronomical  calcula- 
tions, no  pun  intended,  the  time  of  sunrise/sunset 
may  be  more  accurately  calculated  by  consideration 
of  the  changing  inclination  to  the  sun  and  time  of 
rotation  for  the  earth. 

Biorhythms,  Astrology,  and  the  Psychic 

Those  involved  in  exploring  the  more  controv- 
ersial aspects  of  human  existence  will  also  find  the 
microcomputer  useful. 

Biorhythms.  Biorhythms  are  supposedly  the 
cycles  in  emotional,  physical,  and  intellectual 
states  governing  everyone's  behavior.  Dozens  of 
computer  programs  have  been  written  to  generate 
personalized  biorhythm  charts,  yet  interesting  ad- 
ditions could  be  included.  Potential  innovations  in- 
clude the  following: 

1.  Plotting  or  numerically  comparing  the 
biorhythms  of  two  or  more  friends  or  a  family. 

2.  Computing  the  average  of  all  three  biorhythmic 
cycles. 

3.  Generating  a  biorhythm  chart  in  the  form  of  a 
standard  calendar. 

4.  Judging  the  reliability  of  biorhythms  by  objec- 
tively analyzing  your  three  states  at  the  end  of 
each  day  and  making  a  statistical  comparison, 
and  plotting  this  data  versus  your  biorhythm. 

5.  Investigating  the  use  of  histograms  and  other 
means  of  presenting  data  to  output  biorhythms 
in  a  more  favorable  format,  including  artistic 
designs. 

6.  Comparing  the  reliability  of  your  standard 
biorhythm  to  one  beginning  with  your  esti- 
mated date  of  conception. 

Astrology.  The  determination  of  the  align- 


ments of  the  planets  and  the  sorting  of  astrological 
data  are  best  done  with  a  computer.  Horoscopes, 
interpolation  midpoints,  aspects,  and  Placidus 
house  and  astropoints  calculation  may  be  done. 
Tarot,  I-Ching,  and  Numerology  may  be  ac- 
complished in  a  similar  manner. 

The  psychic.  Purely  for  entertainment, 
"psychic"  and  "ESP"  programs  have  been  written 
using  random  number  generators;  can  you  predict 
the  computer's  choice  of  a  card  or  number? 


Additional  Hobby  Application 

Hobbyists  will  find  microcomputers  useful  in 
all  the  following  areas: 

Designing  recreational  vehicles.  A  hang 
glider  or  ultralight  enthusiast  considering  design- 
ing a  new  aerofoil  could  find  a  detailed  computer- 
simulated  wind  tunnel  test  beneficial.  The  pro- 
posed design  could  be  mathematically  described  to 
the  computer,  and  an  aerodynamic  simulation  of 
this  magnitude  could  only  be  done  by  someone  with 
a  good  background  in  aerodynamics.  Similar 
simultations  could  be  applied  to  boats  and  other 
recreational  vehicles. 

Model  building.  A  simple,  time-saving  pro- 
gram could  calculate  the  scaling  factor  for  model 
builders  by  dividing  the  length  of  the  model  by 
length  of  the  object  to  be  modeled.  Next,  each 
dimension  of  the  object  would  be  input,  and  the 
corresponding  dimension  for  the  model  would  be 
calculated  by  multiplying  the  original  dimension  by 
the  scaling  factor. 

Model  railroading.  Model  railroading  en- 
thusiasts with  a  large  layout  may  wish  to  automate 
the  trains,  lights,  switches,  and  so  on  with  a  con- 
trolling microprocessor.  One  hobbyist  went  so  far 
as  to  print  train  schedules  and  tickets,  and  analyze 
freight  business  on  his  personal  computer. 

Scuba  diving  plan.  A  simple  program  could 
calculate  one  of  these  four  parameters,  given  the 
other  three: 

1.  Time  underwater  in  minutes  =  TVW 

2.  Surface  air  consumption  rate  in  cubic  ft/min 
=  S 

3.  Depth  in  feet  =  D 
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4.  Total  air  volume  of  tank  in  cubic  feet  =  having  specified  characteristics  of  each  family 

TAV  member  instantly  available  eases  the  task  of  further 

SS  •  TAV  geneological  research. 

— ■—         =  TUW  Aquarium  maintenance.  One  hobbyist  uses 

his  computer  to  compute  amounts  of  chemicals 

Geneological  storehouse.  A  few  hobbyists  necessary  to  maintain  a  seawater  aquarium  envi- 

have  obtained  a  sufficient  amount  of  geneological  ronment.  Complex  calculations  are  necessary  to 

information  such  that  a  personal  computer  is  neces-  obtain  exact  values  over  a  range  of  temperatures 

sary  to  file  and  update  the  information.  In  addition,  and  conditions. 
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Chapter  7 


Games  and  Recreational  Applications 


According  to  polls,  the  most  popular  application  of 
personal  computers  is  games,  with  over  60  percent 
of  owners  claiming  this  to  be  their  primary  applica- 
tion. Although  this  percentage  may  decline  with  the 
advent  of  inexpensive,  easy-to-use  software  for 
other  purposes  and  the  burgeoning  computer  net- 
works, games  will  continue  to  be  one  of  the  most 
popular  applications. 

Games  are  not  only  fun,  but  they  often  have  the 
added  benefit  of  being  educational.  The  child  (or 
adult!)  can  hone  his  skills  of  eye-hand  coordination 
and  develop  abilities  to  react  creatively,  solve 
problems  logically,  and  make  decisions.  Games  are 
often  the  best  learn-to-program  challenges  for  the 
beginner,  yet  the  professional  programmer  may 
even  find  himself  defeated  in  attempting  to  write 
complex  game  programs  (for  example,  chess  or 
Go).  Games  encourage  imaginative  and  construc- 
tive programming  and  responses. 

There  are  at  least  eight  major  categories  of 
games  that  have  been  adapted  to  the  computer: 
1.   Fantasy  and  adventure  games:  stemming  from 
the  popular  college  game,  Dungeons  and  Dra- 


gons, fantasy  and  adventure  games  lead  you  step 
by  step  through  an  imaginary  world  to  find  a 
special  treasure,  to  solve  a  mystery,  or  to  outfox 
an  evil  wizard.  However,  you  must  figure  out 
how  to  overcome  or  go  through  the  many  obsta- 
cles assigned  to  prevent  your  success  in  this 
elaborate  puzzle.  You  can  type  simple  com- 
mands, such  as  "go  east"  in  English,  and  the 
computer  will  describe  where  you  are  and  what 
the  situation  is  after  each  command.  The  more 
elaborate  adventure  games  may  use  vivid 
graphics  to  draw  the  scene  and  even  use  voice 
output.  Another  series  of  programs  called  in- 
teractive fiction  allows  you  to  interact  with  the 
characters  and  situations  in  a  story. 
"Video"  games:  games  of  this  kind  usually  in- 
volve a  live  action,  shoot-em-up  approach,  pit- 
ting you,  for  example,  as  the  sole  champion  of  a 
ship  or  planet  versus  the  rest  of  the  universe, 
which  is  invariably  out  to  get  you.  If  you  begin  to 
be  successful,  of  course  the  battle  conditions 
deteriorate  and  the  battlefield  fills  with  in- 
creasingly difficult  targets  to  hit.  This  genre  is 
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the  most  popular  form  of  computer  game  and  a 
challenge  to  your  eye-hand  coordination;  all 
manner  of  competitions  are  available. 

3.  Strategy  and  battle  games:  for  those  who  prefer 
a  more  enlightened  approach  to  gaming, 
strategy  games  offer  complex  rules  and  tactics 
to  employ  in  fighting  battles  against  a  computer 
or  a  human  opponent.  They  often  make  use  of 
excellent  computer  graphics  displaying  a 
battlefield  and  tokens  representing  forces  on 
each  side. 

4.  Card  games:  care  to  play  bridge  with  three  com- 
puterized opponents?  The  computer  has  also 
been  programmed  to  play  poker,  gin,  Kalah, 
Tripoli,  solitaire  and  many  other  card  games. 
Card  tricks,  bridge  tutors,  and  poker  betting 
systems  have  also  been  programmed. 

5.  Board  and  word  games:  included  in  this  group 
are  the  old  favorites  of  chess,  backgammon,  and 
checkers  and  the  new-fangled  Clue™,  Mono- 
poly™, Boggle™,  and  Scrabble™.  Some  of  the 
word  games  may  be  equipped  with  vocabularies 
of  up  to  90,000  words.  Chess,  checkers,  and 
backgammon  programs  can  already  compete  at 
the  master  level,  and  it  is  only  a  matter  of  time 
before  they  become  reigning  world  champions. 

6.  Gambling  games:  all  the  games  in  Vegas,  from 
one-armed  bandits  to  roulette,  have  been 
adapted  to  the  personal  computer.  For  those 
who  take  gambling  seriously,  programs  are 
available  to  perform  complex  handicapping 
analysis  for  horse  racing  and  football  games  and 
to  do  the  calculations  necessary  for  the  predic- 
tion of  other  sporting  events. 

7.  Sports  games:  football,  baseball,  auto  racing, 
skiing,  and  numerous  other  sports  have  been 
computerized  and  often  include  live  action  with 
complex  graphics. 

8.  Party  games:  many  popular  party  games,  from 
charades  to  spin  the  bottle,  have  been  pro- 
grammed. For  those  willing  to  take  the  advice  of 
a  computerized  sex  analyst,  several  commercial 
programs  will  ask  you  and  your  mate  a  series  of 
questions  and  then  determine  the  optimum 
"interlude,"  for  which  it  provides  explicit  in- 
structions. 


BOARD  AND  STRATEGY  GAMES  YOU  CAN  PROGRAM 

Although  most  of  the  popular  live-action  or 
real-time  games  on  the  market  required  hundreds 
to  thousands  of  man-hours  to  develop,  many  nonan- 
imated  games  can  be  written  by  the  beginner  and 
are  sometimes  just  as  entertaining  as  the  more 
complex  games.  A  sampling  of  game  ideas  to  tackle 
in  BASIC  follows;  some  would  require  less  than  30 
program  lines,  and  others  are  more  difficult,  possi- 
bly requiring  hundreds  of  lines. 

Board  and  Logic  Games 

Many  popular  board  and  logic  games  take  on  an 
added  dimension  when  computerized,  especially  if 
the  computer  is  programmed  to  be  the  opponent. 
Some  of  the  many  possibilities  include  the  following 
games: 

Tricolor.  Tricolor  is  a  game  played  on  a  hex 
board  with  hexagonal  cells  colored  red,  white,  and 
blue  (or  different  shades).  An  actual  playing  board 
should  be  used  in  the  computerized  version,  be- 
cause creating  a  board  display  on  a  video  screen 
would  be  difficult. 

Each  player  begins  with  18  pieces.  Those  of 
one  player  are  white;  those  of  the  other  are  black. 
At  the  start  of  the  game,  white  places  his  pieces  on 
hexes  1-18,  and  black  on  hexes  44-61  as  shown  in 
Fig.  7-1. 

The  pieces  are  called  stacks  because  you  can 
place  more  than  one  piece  together  to  form  a  stack. 
The  range  of  a  stack,  that  is,  the  maximum  number 
of  cells  it  can  traverse  in  any  one  direction  in  a 
single  move,  is  determined  by  the  number  of  pieces 
in  the  stack;  one  cell  for  a  single  piece,  two  cells  for 
a  stack  of  two  pieces;  and  three  cells  for  any  larger 
stack. 

The  combat  strength  of  a  stack  depends  upon 
both  the  number  of  pieces  it  contains  and  the  color 
(or  shade)  of  the  cell  on  which  it  rests.  Taking  the 
strength  of  a  single  white  piece  on  a  white  cell  as 
the  unit,  the  strength  of  a  stack  of  two  pieces  on  a 
white  cell  is  two  units,  and  the  strength  of  any 
larger  stack  on  a  white  cell  is  three  units.  The 
strength  of  a  stack  on  a  black  cell  is  twice  what  it 
would  be  on  a  white  cell,  and  a  stack  on  a  red  cell  is 
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Fig.  7-1.  The  Tricolor  game  board. 

worth  three  times  as  much  as  it  would  be  on  a  white 
cell. 

Players  take  alternate  turns,  each  moving  a 
single  stack  along  a  diagonal  or  horizontal  line  as  far 
as  he  wishes,  within  the  range  of  the  stack.  The 
entire  stack  or  only  a  portion  of  it  can  be  moved;  the 
number  of  pieces  in  the  part  moved  determines  the 
strength  of  the  stack.  Occupied  cells  may  not  be 
jumped,  but  a  player  may  move  his  stack  to  a  cell 
occupied  by  another  stack  owned  by  himself  or  by 
the  opponent.  If  the  stack  is  his  own,  the  stacks  are 
merged.  If  the  opponent  owns  the  other  stack,  an 
"attack"  has  been  initiated,  and  the  disposition  of 
pieces  is  as  follows:  a  stack  may  attack  an  opposing 
stack  only  if  it  is  stronger  (contains  more  pieces).  If 
it  is  more  than  twice  as  strong,  the  opposing  stack 
is  "killed,"  and  all  hostile  pieces  in  the  stack  are 
removed  from  play;  friendly  pieces  are  added  to  the 
winning  stack.  If  the  attacking  stack  is  not  more 
than  twice  as  strong,  it  "captures"  the  opposing 
stack  by  combining  it  with  itself.  If  a  capture  or  kill 
can  be  made  in  a  player's  turn,  it  must  be  made.  The 
game  ends  with  the  capture  or  killing  of  all  of  one 
player's  pieces. 

Black  Sheep.  Black  sheep  is  played  on  a 


chessboard  between  two  players,  one  "white"  and 
the  other  "black."  White  begins  the  game  with  four 
white  checkers  that  are  placed  on  the  four  black 
squares  on  one  side  of  the  chessboard.  Black  uses 
one  black  checker  and  places  it  on  either  of  the 
middle  black  squares  on  the  opposite  side  of  the 
board.  The  white  pieces  may  only  move  forward  to 
the  opposite  side;  black  may  move  forward  or 
backward.  Both  colors  may  only  move  one  square 
at  a  time  and  only  on  the  diagonal. 

Black  moves  first  and  then  moves  alternate. 
The  object  for  black  is  to  reach  the  opposite  side  of 
the  board  without  being  "trapped"  (surrounded  by 
white  pieces  in  such  a  way  that  there  is  no  adjacent 
diagonal  unoccupied  square  to  move  to).  The  ob- 
jective for  white  is  to  trap  black  before  it  reaches 
the  other  side  of  the  board.  Apparently,  no  one  has 
determined  a  winning  strategy  for  this  game ;  thus  it 
would  be  challenging  to  develop  a  heuristic  strategy 
for  the  computer  to  play  either  side. 

Jam.  In  this  simple,  yet  challenging  game,  the 
small  circles  in  the  diagram  in  Fig.  7-2  represent 
cities;  the  lines  represent  roads.  Each  road  has  a 
designated  number.  Players  alternate  turns  choos- 
ing one  of  the  nine  roads  as  their  own  property.  The 


Fig.  7-2.  The  Jam  game  board. 
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winner  is  the  first  to  own  three  roads  that  connect 
directly  with  any  one  city.  The  game  may  be  won 
with  a  mathematical  strategy  similar  to  that  used  in 
tic-tac-toe. 

Hot.  "Hot"  is  a  clever  variation  of  tic-tac-toe. 
The  following  words  are  listed  on  a  computer 
screen:  TANK,  WOES,  SHIP,  WASP,  HOT, 
BRIM,  HEAR,  FORM,  TIED.  Players  take  alter- 
nate turns  picking  one  word  from  the  list;  words  are 
removed  from  the  list  as  they  are  chosen.  The  first 
player  to  pick  three  words  that  contain  the  same 
single  letter  is  the  winner. 

The  game  may  be  analyzed  by  the  computer  in 
the  same  manner  as  tic-tac-toe,  if  the  words  are 
arranged  on  the  board  as  in  this  diagram: 


SHIP 

BRIM 

TIED 

WASP 

HEAR 

TANK 

WOES 

FORM 

HOT 

By  choosing  three  words  in  a  row  horizontally, 
vertically,  or  diagonally,  a  player  can  win  the  game. 
Thus,  the  strategy  for  play  is  the  same  as  in  tic- 
tac-toe,  except  the  player  that  does  not  know  these 
congruencies  is  at  a  disadvantage. 

Bridge-it.  In  the  game  of  Bridge-it,  the  first 
player  is  designated  as  0  and  the  second  player  as  X. 
Using  the  grid  shown  in  Fig.  7-3,  putting  a  con- 
necting line  between  two  horizontally  or  vertically 
adjacent  markers  of  the  player's  symbol.  The  0 
player  attempts  to  form  a  connected  "bridge"  from 
the  top  to  bottom  of  the  board,  while  the  X  player 
attempts  to  form  a  bridge  from  the  left  to  right  side 
of  the  board.  The  first  to  form  a  bridge  wins  the 
game. 

A  winning  strategy  exists  for  this  game  as 
illustrated  in  Fig.  7-4.  For  the  0  player  to  win,  he 
should  put  his  first  line  between  the  Os  at  positions 
9,  2,  and  11,  2  as  shown  in  Fig.  7-5.  The  game  may 
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Fig.  7-3.  The  Bridge-it  game  board. 
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Fig.  7-4.  The  Bridge-it  game  board  showing  a  win  by  X. 


cupied  hexagon.  The  object  for  both  players  is  to 
complete  a  continuous  chain  of  his  pieces  between 
the  two  sides  labeled  by  his  color.  The  game  is 
mathematically  solvable  on  boards  with  certain  di- 
mensions. For  an  interesting  discussion  of  winning 
strategy  and  Hex  variants,  the  reader  is  referred  to 
The  Journal  of  Recreational  Mathematics,  Vol.  8(2), 
1975-1976,  p.  120. 

Cross  Capture.  Cross  Capture  is  played  on  a 
chess  board.  At  the  start  of  the  game,  a  set  of 
randomly  distributed  letters  or  numbers  is  put  on 
the  board  (video  display),  with  no  more  than  one 
character  per  square.  Most  of  the  board  remains 
empty.  A  sample  board  is  shown  in  Fig.  7-7. 
Players  take  turns  choosing  one  of  the  letters,  and 
all  other  letters  on  the  board  that  fall  in  a  given 
category  become  property  of  that  player.  One 
category  may  be  defined  as  all  the  letters  in  the 
same  horizontal,  diagonal,  or  vertical  row  as  the 
chosen  letter  or  as  all  the  letters  within  a  certain 
proximity  to  the  chosen  letter  (for  example,  one 
space  away).  The  player  who  possesses  the  most 


be  won  by  the  0  player  if  the  following  strategy  is 
used.  Whenever  X  joins  a  connecting  line,  the  line 
will  touch  one  of  the  dotted  lines  or  semicircles  in 
Fig.  7-5.  0  should  draw  a  connecting  line  between 
two  0  markers  such  that  the  line  will  touch  the  end 
of  the  dotted  line  just  touched  by  the  line  drawn  by  X 
following  each  X  turn.  In  this  manner,  0  will  inevit- 
ably win. 

Hex.  Hex  is  a  game  similar  to  Bridge-it,  but 
the  game  has  not  been  solved  such  that  a  win  is 
always  certain.  For  this  reason,  hex  would  probably 
be  more  interesting  to  play  against  a  computer.  A 
heuristic  strategy  similar  to  that  used  in  Bridge-it 
could  be  employed. 

One  game  of  Hex  is  played  on  a  board  com- 
posed of  hexagons,  with  eleven  hexagons  on  each 
side  (although  other  sizes  have  been  used).  Two 
opposite  sides  of  the  board  are  named  black,  while 
the  other  two  are  named  white,  as  shown  in  Fig. 
7-6.  The  hexes  at  the  four  junctions  between  sides 
are  neutral.  One  player  has  black  pieces,  the  other 
player  has  white.  Alternate  turns  are  taken,  with 
each  player  placing  one  of  his  pieces  on  any  unoc- 
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strategy. 


The  Bridge-it  game  board  showing  a  winning 
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Fig.  7-6.  The  Hex  game  board. 

letters  at  the  end  of  the  game  is  declared  the  win- 
ner. 

Tic-tac-toe  variation.  An  interesting  tic- 
tac-toe  variation  is  played  as  follows.  Each  player 
puts  his  three  pieces  on  a  tic-tac-toe  board  such  that 
piece  ownership  alternates  around  the  periphery  of 
the  board.  Following  this  setup,  each  player  is  al- 
lowed to  move  one  of  his  pieces  to  an  adjacent 
square.  The  winner  of  the  game  is  the  first  to  make 
three-in-a-row. 

Tuknanavuhpi.  Tuknanavuhpi  is  a  Hopi  In- 
dian chase  game  played  on  a  4  x  4  board  with 
diagonals  drawn  in  each  of  the  16  squares.  Pieces 
move  on  the  points  where  lines  meet  on  the  board, 
not  on  the  squares.  There  are  two  players;  each  one 
has  20  pieces  placed  on  the  board  as  indicated  in  the 
diagram  in  Fig.  7-8.  The  middle  of  the  board  is 
initially  empty. 

Players  take  alternate  turns  moving  their 
pieces  in  any  direction  along  the  lines  on  the  board, 
from  one  intersection  to  another  adjacent  intersec- 
tion. As  in  checkers  pieces  are  captured  by  jumping 
over  any  of  the  opponent's  pieces.  The  winner  is  the 
player  who  has  captured  all  of  his  opponent's 
pieces. 

Many  other  games  popular  in  other  cultures 
but  undiscovered  in  the  United  States  are  well- 
suited  to  be  computer  games.   These  include 


Teekso,  Hasami  Shogi,  Dreidel,  Bell  and  Hammer, 
Asalto,  Yofe,  Ur,  and  Alquerque,  which  are  refer- 
enced in  game  encyclopedias. 

Nim.  The  game  of  Nim  has  become  a  very 
popular  computer  game.  The  rules  are  simple. 
From  a  pile  of  any  number  of  items  (13  is  the  usual 
number),  players  take  turns  picking  one,  two,  or 
three  items.  The  player  forced  to  pick  up  the  last 
item  loses  the  game.  A  winning  strategy  for  the 
second  player  is  to  ensure  that  with  every  move  you 
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Fig.  7-7.  A  sample  Cross  Capture  game  board  at  the  start  of  a 
game. 
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□  =  PIECE  FOR 
PLAYER  #1 

0  =  PIECE  FOR 
PLAYER  #2 


Fig.  7-8.  The  Tuknananupi  game  board. 

leave  the  pile  with  the  number  of  objects  equal  to  9,     plains  a  variant  of  Nim.  You  can  adapt  it  to  play  the 
5,  or  1.  The  program  in  Listing  2-1  plays  and  ex-    Nim  variations  explained  below. 


Listing  7-1:  The  Nim  Program 

SB  fl=RND<-TI> 

90  PRINT  CHR:^147>;TRB<55>"**  HIM  **"  :  PR  I  NT 

100 

PR I NT" THIS  PROGRAM  PLflVS  THE  GAME  OF  HIM- " 

110 

PR I NT" ASSUME  THAT  THERE  ARE  25  STICKS  IN  fl" 

120 

PR  I HT  "PILE.  THE  PL.  A  VERS  TAKE  TURNS  REMOVIHG" 

130 

PR I  NT" 1,2, 3,  OR  4  STICKS  FROM  THE  FILE.  THE" 

133 

PR  I NT" FL AVER  NHO  IS  FORCED  TO  TAKE  THE  LAST" 

137 

PR I NT "STICK  LOSES." 

1 40 

DIM  C3K5>,L$ 

:5>,W$<:.5) 

150 

FOR  tf=l  TO  5 

READ  C*(.>0 -\\EXT 

155 

FOR  X=l  TO  5 

READ  LJOO^NE^T 

160 

FOR  tf=l  TO  5 

READ  U$O0  :NEXT 

170 

PRINT 

130 

PR  I NT" DO  VOU  MR NT  TO  GO  FIRST": 

208 

INPUT  Q* 

210 

'"-"•' '"!  A 

PRINT 

240 

IF  Q*>^"t"  THEN  300 

250 

PRINT  "I  CHOOSE  4  STICKS- " 

260 

PR  I  NT" THERE  ARE  NOW  21  STICKS  LEFT-" 

a.  i  kJ 
230 

PRINT 
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300  FOR  1=1  TO  10 

310  GOSUB  3o0 

320  IF  tf=l  THEN  650 

330  IF  NO  THEN  760 

340  GOSUE  490 

350  IF  tf=l  THEN  760 

330  he:«;t  I 

370  REM  NUMBER  OF  STICKS  OPFONENT  TflKES 

330  PR  I  NT"  HON  MFlNV  STICKS  HO  VOL!  WRNT?M 

390  INPUT  N 

4O0  IF  HO-IHTOD  THEN  450 

410  IF  N<1  THEN  430 

420  IF  N>4  THEN  450 

430  X=^-N 

440  RETURN 

450  PR  I HT  C*  ■•:  I  NT  <  RND  < 1  >  $5+ 1 ) ) 

460  PRINT 

470  GOTO  3S0 

430  REM  NUMEER  OF  STICKS  I  TAKE - 

490  n=x-5*iht^:k:"-i::'/5> i 

500  I F  I  HT  (.  <  ft  ~ 1  >  75  >  O  ■:  X 1 ::« ,'5  THEN  520 

510  N^INT'::RNIi(1)^4+1) 

520  ;«;==:«;~n 

530    IF    HI>1    THEN    560 

540  PRINT" I  CHOOSE  1  STICK. " 

550  GOTO  600 

560  PR  I  NT  "I  CHOOSE  ";N;"  STICKS,," 

570  IF  :01  THEN  600 

530  PR  I  NT  "THERE  IS  1  STICK  LEFT,,  " 

59 O  GOTO  610 

600  PR  I  NT  "THERE  FIRE  HOW  ".CK,"  STICKS  LEFT,," 

610  PRINT 

630  RETURN 

640  REM -- HE  N I NG- - — 

f/o$   PR  I  HT  L$  C I  HT  •:".  RNI)  '•  1  >  *5+ 1  >  > 

660  FRIHT 

63^    PRINT 

7O0  PR I  NT "LET  US  PLRV  RNOTHER  GRNE-" 

710  PRINT "SINCE  YOU  WENT  FIRST  LRST  TIME,  I  WILL 

715  PR I  NT "GO  FIRST. " 


720  PRINT 
740  GOTO  250 

750  REM - 1  W I N 

760  PR  I  HT  W$  ( I  HT  ( RNH  <.  1  >  *5+ 1  >  > 

770  F-F+l 

730  IF  F>5  THEH  950 

73^)   PRINT 

310  PR I  NT" HO  YOU  WANT  TO  PLRV  RNOTHER  GRNE?" 

320  IHPUT  R$ 

330  IF  R*>-:"Y"  THEN  RESTORE  "■  GOTO  160 

340  REM  REMRRKS  IF  OPPONENET  TflKES  ILLEGAL  NUMBER  OF  STICKS 

350  DAT A  I  THINK  YOU  ARE  TRYING  TO  CHERT 

360  HAT A  I  CAN  NOT  ALLOW  THAT, DIE  YOU  READ  THE  DIRECTIONS 

370  DATA  DO  NOT  TRY  THAT  AGAIN, WHY  NOT  GIVE  UF? 

330  REM - REMARKS  IF  OPPONENT  WINS 

330  DATA  HOW  LUCKY  CAN  YOU  GET?, YOU  ARE  BETTER  THAN  I  EXPECTED. 
900  DATA  "I  WAS  NOT  PAYING  ATTENTION,, 
910  DATA  "I  CAN  BEAT  YOU,  WATCH  THIS-.," 
915  DATA  HOBOHY  IS  PERFECT 

920  REM - REMARKS  IF  I  WIN 

930  DATA  THE  GOOD  GUYS  WIN  FIGRIN,  I  GUESS  I  WON,  YOU  LOSE 
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340    DflTR    I    MUST    BE    SUPERIOR, NOW 
950   EMU 


II 0   NOT    GET    HHGRV 


Nim  Variations.  Here  are  a  few  games  that 
can  be  mathematically  analyzed  in  a  manner  similar 
to  the  way  Nim  has  been  analyzed 

•  Rectangular  dominoes:  players  take  turns  placing 
dominoes  on  a  chess-type  board  or  a  board  of 
arbitrary  size  (8  x  8  is  fine).  The  board  is  of  a  size 
such  that  a  domino  placed  horizontally  or  verti- 
cally on  it  will  cover  up  exactly  two  squares.  The 
first  player  places  his  dominoes  horizontally,  the 
second  player  places  his  vertically;  dominoes 
may  not  overlap.  The  winner  of  the  game  is  the 
player  who  makes  the  last  possible  move.  Figure 
7-9  shows  a  sample  game. 

•  Welter:  the  board  for  this  game  consists  of  an 
arbitrary  number  of  squares  in  one  line  (usually 
about  twenty).  An  arbitrary  number  of  tokens  are 
randomly  placed  in  the  squares,  with  only  one 
token  in  each  square  (there  are  usually  about  five 
tokens).  A  sample  game  is  shown  in  Fig.  7-10. 
Players  take  turns  moving  a  single  token  to  any 
unoccupied  square  to  the  left,  jumping  over  other 


tokens  if  desired.  The  player  who  makes  the  last 
move  wins  the  game. 

Traffic  Jam:  the  game  board  in  Fig.  7-11,  repre- 
sents one-way  roads  between  towns.  An  arbit- 
rary number  of  vehicles  are  placed  on  the  board  to 
set-up  the  game.  Players  take  turns  moving  one 
of  the  vehicles  in  the  proper  direction  from  one 
town  to  an  adjacent  town.  The  game  continues 
until  a  traffic  jam  develops,  in  which  no  further 
moves  are  possible;  the  player  who  makes  the 
final  move  is  declared  the  winner. 
Innocent  Marble  game:  in  this  game,  either  zero, 
two,  or  four  markers  may  be  placed  in  the  circles 
on  the  game  board  shown  in  Fig.  7-12;  only  one 
marker  may  be  in  any  one  circle.  Players  take 
turns  moving  any  one  marker  from  one  circle  to 
an  adjacent  one,  in  the  directions  of  the  arrows. 
Whenever  a  marker  is  moved  to  a  circle  that  is 
already  occupied,  both  markers  are  removed 
from  play.  The  winner  is  the  player  making  the 
last  possible  move. 
Tsyanshidzi:    this  is  the  Chinese  national  game 


Fig.  7-9.  A  sample  Rectangular  Dominoes  game. 
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Fig.  7-10.  A  sample  Welter  game. 

in  which   players  may  select  from  two  piles  of 
objects    either  an  arbitrary  number  of  objects 
from  one  pile  or  the  same  number  of  objects  from 
each  pile,  but  no  fewer  than  one  object  from  each 
pile.   As  always,  the  player  taking  all  remaining 
objects  wins.  This  game  requires  a  more  com- 
plex analysis  than  the  simple  game  ofNimdoes. 
•  Acey-ducey:  in  this  game  the  computer  "shuf- 
fles" a  card  deck  and  deals  two  cards.  The  player 
then  bets  against  the  computer,  wagering  that  the 
next  card  dealt  will  fill  in  between  the  first  two 
cards  in  rank.  Can  you  determine  the  mathemati- 
cal strategy  behind  a  winning  program? 
Neutron.  Neutron  is  a  two-player  game  played 
on  a  5  x  5  grid,  as  shown  in  Fig.  7-13.  At  the  start  of 
the  game,  White  owns  the  five  pawns  at  the  top,  and 
Black  the  five  pawns  at  the  bottom.  The  neutron  (n) 
begins  at  the  center  and  is  neutral.  Each  turn  has 
two  parts:  first,  the  player  must  move  the  neutron 
in  any  one  direction,  and  then  the  player  must  move 
one  of  his  pawns  in  any  direction.  The  winner  is  the 
first  to  maneuver  the  neutron  to  his  back  row, 
whether  moved  by  himself  or  by  forcing  the  oppo- 
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Fig.  7-11.  The  Traffic  Jam  game  board. 


Fig.  7-12.  The  Innocent  Marble  game  board. 

nent  to  do  so.  You  can  also  win  by  stalemating  an 
opponent— that  is,  by  trapping  him  so  that  he  can 
not  complete  his  turn.  For  instance,  if  Black  can 
completely  surround  the  neutron  with  his  pawns  so 
that  White  can  not  complete  his  turn,  Black  wins. 
There  is  another  thing  to  remember:  any  time  a 
pawn  or  neutron  is  moved,  it  must  be  moved  as  far 
as  it  can  go  in  a  straight  line  (within  the  game  board 
confines).  A  piece  stops  just  before  it  reaches 
another  piece  of  wall.  Also,  to  even  things  out, 
White  moves  first  but  does  not  move  the  neutron  on 
this  first  turn.  A  program  to  play  Neutron  would  be 
based  on  tree-searching  principles,  as  described  in 
most  artificial  intelligence  books  and  in  the  Etudes 
for  Programmers  (Wetherell,  Prentice-Hall,  1978). 
This  would  be  an  ideal  prelude  in  programming  for 
those  interested  in  computer  chess. 

Hexpawn.  This  game  was  first  introduced  by 
Martin  Gardener  in  Scientific  American  (Volume 
200,  No.  3).  The  game  is  played  on  a  3  x3  grid  as  in 
tic-tac-toe.  The  two  players  each  place  their  three 
pieces  as  shown  in  the  first  diagram  in  Fig.  7-14. 
The  pieces  move  in  a  manner  similar  to  the  way 
pawns  move  in  chess,  that  is,  they  move  one  space 
diagonally  to  capture  and  remove  an  opponent's 
piece.  Players  alternate  turns,  and  the  winner  is  the 
first  player  to  reach  the  opponent's  side  of  the  board 
with  a  piece  or  the  remaining  player  when  the  oppo- 
nent has  no  legal  move. 
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Hexpawn  presents  an  excellent  opportunity  to 
write  a  program  that  learns  as  it  plays,  because  the 
number  of  different  ways  to  play  is  small.  Consider 
the  game  shown  in  the  third  diagram  in  Fig.  7-14. 
The  computer  must  choose  between  one  of  the  four 
moves  indicated.  If  number  4  is  chosen  and  leads  to 
defeat,  this  information  is  stored  and  the  mistake  is 
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Fig.  7-13.  The  Neutron  game  board. 


Fig.  7-14.  The  Hexpawn  game  board. 
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not  repeated  in  the  future.  The  computer  continues 
to  randomly  select  legal  moves,  provided  these 
moves  have  not  proven  fatal  in  previous  games, 
until  it  becomes  a  perfect  player. 

Countdown.  How's  your  sense  of  timing? 
One  or  two  players  can  test  their  skill  with  the 
computer  serving  as  timekeeper  and  scorekeeper. 
First,  the  computer  chooses  and  displays  a  random 
amount  of  time  (say,  from  five  to  sixty  seconds). 
Each  player  then  presses  a  key  when  he  or  she 
thinks  that  amount  of  time  has  elapsed.  The  person 
who  is  closer  is  declared  winner.  Computers  can 
execute  a  FOR-NEXT  loop  while  the  time  is  elaps- 
ing and  from  the  number  of  executions  multiplied  by 
a  time  factor,  determine  the  time  elapsed.  A  varia- 
tion of  this  game  could  test  reaction  time  of  two 
players;  as  soon  as  the  word  GO  is  displayed,  the 
two  players  race  to  push  their  own  keys,  and  the 
computer  determines  who  reacted  faster. 

Mill.  Mill  is  a  two  player  game  using  the  board 


shown  in  Fig.  7-15.  Players  alternate  turns,  placing 
one  of  their  nine  pieces  on  any  of  the  corners  or 
intersections  of  lines  on  the  board.  The  moment 
one  player  gets  three  pieces  in  line,  he  may  remove 
an  opposing  piece,  provided  that  piece  is  not  part  of 
three  in  a  row  already. 

After  each  player's  nine  pieces  are  placed, 
they  may  be  moved  one  at  a  time  to  a  vacant  and 
adjacent  corner  or  intersection.  If  any  other  lines  of 
three  are  formed,  another  opposing  piece  may  be 
removed.  If  a  player  has  only  three  pieces  on  the 
board,  he  may  move  any  one  piece  to  any  corner  or 
intersection  during  his  turn.  The  first  player  to  be 
left  with  only  two  pieces  is  the  loser. 

Marked  Square  Game.  In  this  simple  game, 
the  game  board  is  a  9x9  grid.  Players  alternately 
mark  one  square  with  their  initials.  At  the  end  of  the 
game  when  all  squares  are  filled,  players  receive  1, 
2,  or  3  points  (respectively)  for  3,  6,  or  9  squares 
with  their  initials  in  a  row;  the  player  with  the  most 


Fig.  7-15.  The  Mill  game  board. 
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Star  Fight 


points   wins.    The   computer  could   serve   as     your  mission,  lest  the  empire  be  destroyed.  Fortu- 
scorekeeper  or  opponent.  nately,  you  have  a  few  star  bases  for  resupplying 

your  ship,  although  you  must  find  them.  You  are 
assigned  a  random  starting  position  in  the  galaxy, 
which  is  divided  into  an  8x8  quadrant  grid.  Each 
One  of  the  earliest  and  most  popular  computer  quadrant  is  subdivided  into  an  8x8  section  grid, 
games  is  based  upon  the  famous  television  series  The  program  will  explain  the  12  command  options, 
Star  Trek.  In  this  strategy  game  you  are  captain  of  which  include  firing  weapons,  maneuvering,  using 
the  starship  Enterprise,  and  you  have  been  as-  clock  devices,  and  heaven-forbid,  self-destructing, 
signed  the  task  of  seeking  and  destroying  a  fleet  of  The  version  in  Listing  7-2  is  one  of  the  most  com- 
Klingon  warships  (usually  around  20)  that  are  plete  in  print  and  consumes  about  20K  of  memory, 
menacing  the  United  Federation  of  Planets.  You  are  Because  it  is  written  in  BASIC,  it  can  easily  be 
given  a  specified  number  of  stardates  to  complete     modified  until  the  universe  is  to  your  liking. 


Listing  7-2:  The  Star  Fight  Program 

I  PRINTCHR$(147)TAB(45)" STAR  FIGHT " 

3  REM 

5  REM 

7  DIM  A(5),T(5),R(5),F(5)fD(5),H(5),C(5) 

9  H1=0:F=0:R=0:D=0:D2=0:D3=0:B1=0:B2=0:C=0:C1=0:P=0:S=0 

II  B$="PHASER  BANKS" 

13  C$=  "CLOAK  ACTIVATED""""-" 

15  K$="KLING0N" 

17  E$="ENGINEERING  REPORTS" 

19  P$="PH0T0N  TORPEDOES" 

21  D$=",  DAMAGE  REPORT—" 

23  H$="HIGH  ENERGY  PLASMA  BOLT" 

25  G$="DAMAGE" 

27  FOR  X=l  TO  5 

29  A(X)=0:T(X)=0 

31  R(X)=0:F(X)=0 

33  D(X)=0 

35  H(X)=0 

37  C(X)=0 

39  NEXT 

41  P3=1.5 

43  Rl=l 

45  PRINT"SPACE— THE  FINAL  FRONTIER.  THESE  ARE  " 

46  PRINT"THE  VOYAGES  OF  THE  STARSHIP  ENTERPRIZE." 

47  PRINT"HER  FIVE  YEAR  MISSION— TO  EXPLORE" 

48  PRINT"STRANGE  NEW  WORLDS,  TO  SEEK  OUT  NEW" 

49  PRINT"LIFE  AND  NEW  CIVILIZATION,  TO  BOLDLY" 
51  PRINT"G0  WHERE  NO  MAN  HAS  GONE  BEFORE." 

53  PRINT"(SWISH,  TRUMPETS)" :G0SUB  1127 

55  PRINT 

57  PRINT 

59  Q=(10*RND(0)) 

61  PRINT" YOU  ARE  ON  PATROL  IN  ARCTURUS  SECTOR" 

62  PRINT  Q;"WHEN  YOU  PICK  UP  UNEXPECTED  SENSOR" 

63  PRINT"READINGS,  CONFIGURATION " 

65  PRINT"    KLINGON  BATTLE  CRUISERS" 

67  PRINT"D0  YOU  NEED  A  SUMMARY  OF  YOUR  SHIP'S" 
69  INPUT"CAPABILITIES";A$ 
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71  IF  A$OffYES"  THEN  105 

73  PRINT"CAPABILITIES  OF  THE  USS  ENTERPRIZE:" 

75  PRINTMAFTER  THE  QUESTION  MARK  TYPE  TWO  DIGITS" 

76  PRINT"SEPARATED  BY  COMMAS— EX  AMPLE,  0,0.  THE" 

77  PRINT"FIRST  DIGIT  IS  THE  OPTION." 

79  PRINT"THE  SECOND  DIGIT  IS  THE  SHIP  TO  ATTACK." 

81  PRINT"COMMAND  OPTIONS:": PRINT"     1  FIRES  PHASERS . " 

83  PRINT"     2  FIRES  SECRET  WEAPON" 

85  PRINT"     3  FIRES  FRONT  PHOTON  TORPEDOES" 

87  PRINT"     4  FIRES  REAR  PHOTON  TORPEDOES" 

89  PRINT"     5  FIRES  HIGH  ENERGY  PLASMA  BOLT" 

91  PRINT"     6  ACTIVATES  SELF  DESTRUCT" 

93  PRINT"     7  FOR  CHANGE  OF  WARP  SPEED" 

95  PRINT"    11  ACTIVATES  CLOAKING  DEVICE" 

97  PRINT"    12  DEACTIVATES  CLOAKING  DEVICE" 

99  PRINT"    13  TURNS  SHIP  180  DEGREES" 
101  PRINT"     14  DIVERTS  POWER  TO  REPAIRS." 
103  PRINT"    15  DIVERTS  POWER  TO  WEAPONS." 
105  PRINT 
107  PRINT 

109  PRINT  "HOW  MANY  KLINGONS  DO  YOU  WANT  TO  FIGHT"; 
111  INPUT  Nl 
113  N1=INT(N1) 
115  IF  N1>0  THEN  121 
117  PRINT"THE  KLINGONS  "; 
119  GOTO  125 
121  IF  NK6  THEN  129 
123  PRINT"THE  KLINGONS  ONLY  " 

125  PRINT"HAVE  5  BATTLE  CRUISERS  IN  THIS  QUADRANT" 
127  GOTO  109 
129  IF  Nl=l  THEN  139 
131  IF  Nl>2  THEN  135 
133  S=-1:H(1)=-1:H(2)=-1 
135  PRINT  Nl; "KLINGONS"; 
137  GOTO  143 
139  PRINT  N1;K$ 
141  S=-3:H(l)=-3 

143  PRINT"COMING  INTO  RANGE— SHIELDS  ON" 
145  PRINT 
147  FOR  1=1  TO  Nl 
149  R(I)=400000.+RND(0)*200000. 
151  A(I)=360*RND(0) 

153  PRINT"  RANGE  OF  " ;K$ ; I ; "  =  " ;R( I) ;  "  KM.  AT  ";A(I);"  DEGREES" 
155  NEXT  I 
157  S=0 
159  P3=1.5 
161  Rl=l 
163  GOTO  377 
165  M=0:D1=0:N2=0 

167  PRINT"YOUR  MOVE— DIRECTED  AT  ";K$; 
169  INPUT  M1,K 
171  K=INT(K) 
173  M1=INT(M1) 
175  IF  M1>0  THEN  181 
177  GOSUB  975 
179  GOTO  537 
181  IF  Ml>16  THEN  387 
183  IF  K>N1  THEN  387 
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185  IF  Ml<14  THEN  189 

187  ON(Ml-13)GOT0363,371,159 

189  ON  Ml  GOTO  231,231,191,197,231,233,233,231,233,233,233,341,349 

191  IF  F>=20  THEN  407 

193  IF  A(K)>180  THEN  387 

195  GOTO  201 

197  IF  R>=--10  THEN  417 

199  IF  A(K)<180  THEN  387 

201  IF  R(K)<200000  THEN  387 

203  IF  R(K)>600000THEN  387 

205  IF  Hl>=9  THEN  387 

207  IF  C(K)=1  THEN  387 

209  IF  NlOl  THEN  215 

211  N2=l 

213  GOTO  233 

215  PRINTnHOW  MANY  ";P$;M  DO  YOU  WANT  TO  FIRE"; 

217  INPUT  N2 

219  N2=INT(N2) 

221  IF  N2>(N1*2)-1  THEN  395 

223  IF  N2<1  THEN  395 

225  IF  C=l  THEN  229 

227  GOTO  231 

229  IF  N2>5  THEN  391 

231  IF  C(K)=1  THEN  387 

233  ON  Ml  GOTO  235,251,257,267,273,875,913,965,961,309,333 

235  IF  R(K)>300000  THEN  387 

237  IF  A(K)>180  THEN  387 

239  IF  Hl>=8  THEN  387 

241  N3=2/M1 

243  P=P+N3 

245  GOSUB  975 

247  N2=N3 

249  GOTO  461 

251  IF  R(K)>300000  THEN  387 

253  IF  A(K)<180  THEN  387 

255  GOTO  239 

257  F=F+N2 

259  IF  F>20  THEN  401 

261  P=P+N2 

263  GOSUB  975 

265  GOTO  461 

267  R=R+N2 

269  IF  R>10  THEN  411 

271  GOTO  261 

273  IF  Hl>=8  THEN  387 

275  IF  C=l  THEN  387 

277  IF  R(K)<100000  THEN  387 

279  IF  R(K)>300000  THEN  387 

281  B1=B1+1 

283  IF  Bl>5  THEN  421 

285  P=P+3 

287  GOSUB  975 

289  B=RND(0) 

291  IF  B>.7  THEN  297 

293  IF  B<.2  THEN  303 

295  GOTO  529 

297  PRINT"DIRECT  HIT  ON  ";K$;K 
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299  H(K)=H(K)+4 

301  GOTO  491 

303  PRINT"HIT  ON  ";K$;K 

305  H(K)=H(K)+2 

307  GOTO  491 

309  IF  Hl>=7  THEN  387 

311  IF  Hl<5  THEN  387 

313  PRINT"HOW  MANY  MILLION  STROMS  DO  YOU  WANT  TO" 

315  INPUT"USEM;P1 

317  P1=INT(P1) 

319  IF  P1<0  THEN  387 

321  P=P+P1 

323  GOSUB  975 

325  H1=H1-(P1*.5) 

327  IF  Hl>=5  THEN  537 

329  PRINT"SHIELDS  FIRMING  UP" 

331  GOTO  537 

333  IF  C=l  THEN  387 

335  C=l 

337  PRINT  C$ 

339  GOTO  165 

341  IF  C=0  THEN  387 

343  PRINT"CLOAK  DEACTIVATED" 

345  C=0 

347  GOTO  167 

349  IF  C(K)=1  THEN  387 

351  IF  A(K)<180  THEN  357 

353  A(K)=A(K)-180 

355  GOTO  359 

357  A(K)=A(K)+180 

359  PRINT  K$;K;"  NOW  AT" ;A(K) ; "DEGREES" 

361  GOTO  167 

363  Rl=2 

365  P3=.5 

367  PRINT"POWER  DIVERTED  TO  REPAIRS" 

369  GOTO  165 

371  P3=2.5 

373  PRINT"POWER  DIVERTED  TO  WEAPONS" 

375  GOTO  165 

377  IF  COl  THEN  381 

379  PRINT  C$; 

381  IF  P3=2.5  THEN  373 

383  IF  P3=.5  THEN  367 

385  GOTO  165 

387  PRINT"MOVE  IMPOSSIBLE,  TRY  AGAIN" 

389  GOTO  167 

391  PRINT"WITH  THE  CLOAK  ACTIVATED  ONLY  5  ";P$;"  MAY" 

393  GOTO  397 

395  PRINT"WITH  ";N1;"  KLINGONS  ONLY  " ; (Nl*2)-1 ;P$; "  MAY" 

397  PRINT"BE  FIRED  AT  A  TIME" 

399  GOTO  165 

401  F=F-N2 

403  PRINT"ONLY";20-F; "FORWARD  ";P$;"LEFT" 

405  GOTO  165 

407  PRINT"OUT  OF  FORWARD  ";P$ 

409  GOTO  167 

411  R=R-N2 

413  PRINT"0NLY";10-R;"REAR  ";P$;"  LEFT" 
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415  GOTO  165 

417  PRINTOUT  OF  REAR  ";P$ 

419  GOTO  167 

421  PRINTOUT  OF  ";H$;"  S" 

423  GOTO  167 

425  PRINTMSECONDARY  DILITHIUM  CIRCUIT  FUSED" 

427  PRINT"IMPULSE  POWER  ONLY, LIMIT  2  MILLION  STRS" 

429  PRINTMWARNING— IF  CAPACITY  OF  IMPULSE  ENGINE  " 

431  PRINT"IS  EXCEEDED,  IT  WILL  IMPLODE" 

433  Cl=2 

435  GOTO  443 

437  PRINT"PRIMARY  DILITHIUM  CIRCUIT  FUSED," 

438  PRINT"SWITCHING  TO  SECONDARY" 

439  PRINT"OVERLOAD  CAPACITY  FOR  THIS  CIRCUIT  IS" 

440  PRINT" 10  MILLION  STROMS" 

441  Cl=l 
443  P=0 

445  IF  Ml=5  THEN  457 

447  IF  Ml=3  THEN  453 

449  R=R-N2 

451  GOTO  167 

453  F=F-N2 

455  GOTO  167 

457  B1=B1-1 

459  GOTO  167 

461  FOR  1=1  TO  N2 

463  B=RND(0) 

465  IF  B>(R(K)*5.E-07+.55)  THEN  473 

467  IF  B>(R(K)*5.E-07+.25)  THEN  479 

469  M=M+1 

471  GOTO  483 

473  H(K)=H(K)+2 

475  PRINT  "DIRECT  HIT--"; 

477  GOTO  483 

479  H(K)=H(K)+1 

481  PRINT"HIT**"; 

483  IF  H(K)>=8  THEN  489 

485  NEXT  I 

487  IF  M=N2  THEN  529 

489  PRINT 

491  IF  H(K)<6  THEN  495 

493  F(K)=F(K)+1 

495  PRINT"DAMAGE  TO  ";K$;K;"IN  THIS  ATTACK—" 

497  IF  H(K)>8  THEN  521 

499  ON  INT(H(K))GOTO  501,501,505,505,509,513,517 

501  PRINT"SHIELDS  HOLDING,  NO  DAMAGE" 

503  GOTO  531 

505  PRINT"SHIELDS  WEAKENING,  MINOR  DAMAGE" 

507  GOTO  531 

509  PRINT"ALL  SHIELDS  DESTROYED" 

511  GOTO  531 

513  PRINT  B$;"  DEACTIVATED" 

515  GOTO  531 

517  PRINT"ALL  WEAPONS  DEACTIVATED" 

519  GOTO  531 

521  PRINT 

523  PRINT"-----" ; K$ ; K ; "DESTROYED*****" 

525  C(K)=1 
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527  GOTO  537 

529  PRINT"NEAR  MISS" 

531  IF  F(K)<>3  THEN  537 

533  PRINTK$;K;"  CAN  NO  LONGER  REPAIR  ITSELF" 

535  F(K)=4 

537  IF  Hl>=9  THEN  543 

539  P=P-P3 

541  GOTO  545 

543  P=P-P3-.5 

545  IF  D>4  THEN  605 

547  IF  P3=2.5  THEN  605 

549  FOR  1=1  TO  Rl 

551  Zl=Hl-.5 

553  IF  Zl>-1  THEN  559 

555  Hl=-1 

557  GOTO  561 

559  Hl=Hl-.5 

561  IF  Hl=9.5  THEN  565 

563  GOTO  567 

565  IF  Cl<>2  THEN  577 

567  IF  HI =8. 5  THEN  581 

569  IF  HI =7. 5  THEN  593 

571  IF  111=6.5  THEN  597 

573  IF  111=4.5  THEN  601 

575  GOTO  603 

577  PRINT  E$;"  WARP  ENGINES  REPAIRED" 

579  GOTO  603 

581  IF  F<20  THEN  585 

583  IF  R>=10  THEN  589 

585  PRINT  E$;"  "; P$; "PROTECTORS  REPAIRED" 

587  GOTO  603 

589  PRINT  E$;"  NORMAL  POWER  LEVEES  RESTORED" 

591  GOTO  603 

593  PRINT  E$;"  ";B$;"  REPAIRED" 

595  GOTO  603 

597  PRINT  E$;"  SHIELDS  RESTORED  AT  A  LOW  POWER  LEVEL" 

599  GOTO  603 

601  PRINT  E$;"  SHIELDS  FIRMING  UP" 

603  NEXT  I 

605  FOR  K=l  TO  Nl 

607  IF  C(K)=1  THEN  723 

609  IF  C=0  THEN  617 

611  IF  M1=0  THEN  647 

613  IF  H(K)>5  THEN  651 

615  IF  F(K)>2  THEN  651 

617  IF  R(K)<=500000.  THEN  621 

619  IF  H(K)<7  THEN  637 

621  IF  R(K)>=l.E+06  THEN  625 

623  IF  H(K)>=7  THEN  651 

625  IF  R(K)<=200000.  THEN  629 

627  IF  H(K)>6  THEN  651 

629  IF  R(K)>=300000  THEN  633 

631  IF  H(K)<6  THEN  669 

633  IF  R(K)>=200000  THEN  637 

635  IF  T(K)<10  THEN  707 

637  IF  H(K)<6  THEN  641 

639  IF  T(K)=10  THEN  651 

641  R(K)=R(K)/2 
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643  PRINT  K$;K;n  APPROACHING" 

645  GOTO  725 

647  PRINT  K$;K;"  DOING  NOTHING" 

649  GOTO  733 

651  IF  H(K)>=7  THEN  657 

653  R(K)=R(K)+200000.+RND(-l)*100000. 

655  GOTO  659 

657  R(K)=R(K)+100000.+RND(-1)*50000. 

659  PRINT  K$;K"  ATTEMPTING  TO  BREAK  CONTACT" 

661  IF  R(K)<l.E+06  THEN  725 

663  PRINT  K$;K"  OUT  OF  SENSOR  RANGE— CONTACT  BROKEN" 

665  C(K)=1:D(K)=1 

667  GOTO  723 

669  IF  Nl>2  THEN  673 

671  IF  RND(0)<.7  THEN  677 

673  PRINT  K$;K;"  FIRES  PHASERS  AT  ENTERPRIZE" 

675  GOTO  803 

677  IF  B2=10  THEN  673 

679  IF  R(K)<100000  THEN  673 

681  B2=B2+1 

683  IF  B2=10  THEN  689 

685  PRINT  K$;K;"  LAUNCHES  ";H$ 

687  GOTO  691 

689  PRINT  K$;K;"  LAUNCHES  ITS  LAST  ";H$ 

691  B=RND(0) 

693  IF  B>.7+C*3  THEN  703 

695  IF  B>.2+C*4  THEN  699 

697  GOTO  811 

699  H1=H1+1 

701  GOTO  821 

703  Hl=Hl+2 

705  GOTO  815 

707  IF  Nl>2  THEN  711 

709  IF  RND(0)<.4  THEN  637 

711  T(K)=T(K)+1 

713  IF  T(K)=10  THEN  719 

715  PRINT  K$;K;M  FIRES  ";P$ 

717  GOTO  803 

719  PRINT  K$;K;"  FIRES  ITS  LAST  ";P$ 

721  GOTO  803 

723  D1=D1+1 

725  IF  D<4  THEN  733 

727  IF  D>9  THEN  733 

729  PRINT  E$;"  FURTHER  MAJOR  REPAIRS  IMPOSSIBLE" 

731  D=10 

733  NEXT  K 

735  IF  D1=N1  THEN  993 

737  PRINT 

739  FOR  J=l  TO  Nl 

741  IF  C(J)=1  THEN  757 

743  R(J)=R(J)-RND(-1)*1000 

745  IF  R(J)>1000  THEN  749 

747  R(J)=R(J)+(RND(-1)*100000) 

749  A(J)=A(J)-(5*RND(-1)) 

751  IF  A(J)>10  THEN  755 

753  A(J)=A(J)+(20*RND(-1)) 

755  PRINT"RANGE  OF  " ;K$; J; "=" ;R( J) ; "KM.  AT"; A( J) ; "DEGREES" 

757  NEXT  J 
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759  FOR  1=1  TO  Nl 

761  IF  C(I)=1  THEN  797 

763  IF  F(I)>=3  THEN  797 

765  H(I)=H(I)-.5 

767  IF  H(I)>S  THEN  771 

769  H(I)=S 

771  IF  H(I)<>6.5  THEN  775 

773  IF  T(I)<10  THEN  783 

775  IF  H(I)=5.5  THEN  787 

777  IF  H(I)=4.5  THEN  791 

779  IF  H(I)=2.5  THEN  795 

781  GOTO  797 

783  PRINTK$;I;M  HAS  REPAIRED  ITS  PHOTON  TORPEDO  PROJECTORS" 

785  GOTO  797 

787  PRINT  K$;I;"  HAS  REPAIRED  ITS  ";B$ 

789  GOTO  797 

791  PRINT  K$;I;"  HAS  RESTORED  ITS  SHIELDS  AT  LOW  POWER" 

793  GOTO  797 

795  PRINTK$;I;"  HAS  RESTORED  ITS  SHIELDS  TO  FULL  POWER" 

797  NEXT  I 

799  PRINT"YOUR  CURRENT  POWER  OVERLOAD  IS  ";P; "MILLION  STROMS" 

801  GOTO  377 

803  B=RND(0) 

805  IF  B>(R(K)*5.E-07+.6+C*.4)  THEN  815 

807  IF  B>(R(K)*5.E-07+.3+C*.2)  THEN  821 

809  IF  B>.3  THEN  827 

811  PRINT"NEAR  MISS" 

813  GOTO  725 

815  PRINT"DIRECT  HIT  ON  USS  ENTERPRIZE  ";D$ 

817  Hi=Hi+2 

819  GOTO  833 

821  PRINT"HIT  ON  USS  ENTERPRIZE  ";D$; 

823  H1=H1+1 

825  GOTO  833 

827  IF  M1<=0  THEN  811 

829  PRINT"YOU  OUTMANEUVERED  HIM;  MISSED" 

831  GOTO  725 

833   IF  HK8  THEN  837 

835  D=D+1 

837  IF  H1>=11  THEN  869 

839  IF  Hl<5  THEN  843 

841  ON  INT(Hl-4)  GOTO  847,847,851,855,859,865,869 

843  PRINT"SHIELDS  HOLDING,    NO  DAMAGE" 

845  GOTO  725 

847  PRINT"SHIELDS  WEAKENING" 

849  GOTO  725 

851  PRINT"ALL  SHIELDS  DESTROYED" 

853  GOTO  725 

855  PRINT  B$;"  DEACTIVATED,  "; 

857  GOTO  851 

859  PRINT 

861  PRINT"ALL  WEAPONS,  SHIELDS  DEACTIVATED,  POWER  DROPPING" 

863  GOTO  725 

865  PRINT"WARP  POWER  GONE" 

867  GOTO  861 

869  PRINT  "USS  ENTERPRIZE  DESTROYED" 

871  D2=l 

873  GOTO  993 
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875  PRINTTAB(10)"A  C  T  I  V  A  T  E  D" 

877  Rl=9800*RND(-l)+200 

879  PRINT"RADIUS  OF  EXPLOSION=M ;R1 ;"KM. " 

881  FOR  1=1  TO  Nl 

883  IF  C(I)=1  THEN  905 

885  IF  R(I)>R1  THEN  905 

887  IF  R(I)>R1*,8  THEN  895 

889  PRINT  K$; I; "DESTROYED  " ; 

891  C(I)=1 

893  GOTO  903 

895  H(I)=H(I)+6 

897  IF  H(I)>=8  THEN  889 

899  F(I)=F(I)+1 

901  PRINT  K$; I; "HEAVILY  ";G$ 

903  PRINT"  BY  THE  BLAST" 

905  NEXT  I 

907  GOTO  871 

909  PRINT"IMPULSE  ENGINE  OVERLOAD" 

911  GOTO  877 

913  IF  Cl=2  THEN  387 

915  IF  Hl>=10  THEN  387 

917  PRINT"HOW  FAST  DO  YOU  WANT  TO  GO,  WARP  1-8"; 

919  INPUT  W 

921  IF  W<0  THEN  387 

923  IF  W>8  THEN  387 

925  P=P+W 

927  GOSUB  975 

929  IF  Ml<>9  THEN  933 

931  W=2 

933  FOR  1=1  TO  Nl 

935  IF  C(I)=1  THEN  957 

937  R(I)=R(I)+W*100000.-RND(-1)*50000. 

939  IF  R(I)>l.E+06  THEN  947 

941  IF  A(I)>180  THEN  957 

943  A(I)=A(I)+180 

945  GOTO  957 

947  C(I)=1 

949  D(I)=2 

951  IF  H(I)<7  THEN  955 

953  D(I)=1 

955  PRINT"LOST  CONTACT  WITH  ";K$;I 

957  NEXT  I 

959  GOTO  537 

961  W=l 

963  GOTO  925 

965  P=P+1 

967  GOSUB  975 

969  R(K)=R(K)/2 

971  A(K)=A(K)/2 

973  GOTO  537 

975  IF  COl  THEN  979 

977  P=P+3 

979  IF  P<=20  THEN  983 

981  IF  C1=0  THEN  437 

983  IF  P<=10  THEN  987 

985  IF  Cl=l  THEN  425 

987  IF  P<=2  THEN  991 

989  IF  Cl=2  THEN  909 
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991  RETURN 

993  PRINT 

995  PRINT 

997  PRINT"RESULTS  OF  THIS  BATTLE:" 

999  PRINT 

1001  FOR  1=1  TO  Nl 

1003  IF  C(I)<>1  THEN  1007 

1005  IF  D(I)=1  THEN  1031 

1007  IF  C(I)<>1  THEN  1011 

1009  IF  D(I)=2  THEN  1035 

1011  IF  C(I)=1  THEN  1021 

1013  IF  H(I)>=6  THEN  1027 

1015  IF  H(I)>=3  THEN  1043 

1017  PRINT  K$;I;"NOT  ";G$ 

1019  GOTO  1045 

1021  PRINT  K$;I; "DESTROYED" 

1023  D3=D3+1 

1025  GOTO  1045 

1027  PRINT  K$;I; "HEAVILY  ";G$ 

1029  GOTO  1037 

1031  PRINT  K$; I; "FORCED  TO  RETIRE" 

1033  GOTO  1023 

1035  PRINT"CONTACT  LOST  WITH  ";K$;I 

1037  IF  H(I)<6  THEN  1041 

1039  IF  H(I)>=3  THEN  1023 

1041  GOTO  1045 

1043  PRINT  K$;I; "LIGHTLY  ";G$ 

1045  NEXT  I 

1047  PRINT"USS  ENTERPRIZE  "; 

1049  IF  D2=l  THEN  1071 

1051  IF  Cl=2  THEN  1067 

1053  IF  HK5  THEN  1057 

1055  ON  INT(Hl-4)  GOTO  1063,1063,1067,1067,1067,1067,1067 

1057  IF  Cl=l  THEN  1063 

1059  PRINT"N0T  ";G$ 

1061  GOTO  1073 

1063  PRINT"LIGHTLY  ";G$ 

1065  GOTO  1073 

1067  PRINT"HEAVILY  ";G$ 

1069  GOTO  1073 

1071  PRINT"LOST" 

1073  IF  D3<Nl/2  THEN  1077 

1075  IF  D2=0  THEN  1087 

1077  IF  D3>=Nl/2  THEN  1091 

1079  IF  D2O0  THEN  1083 

1081  IF  D3>=1  THEN  1091 

1083  PRINT"THIS  BATTLE  AWARDED  TO  THE  KLINGONS" 

1085  GOTO  1105 

1087  PRINT"CONGRATULATIONS,  YOU  HAVE  WON  A  MAJOR   VICTORY!" 

1089  GOTO  1093 

1091  PRINT"CONGRATULATIONS,  YOU  HAVE  WON  A  TACTI-  CAL  VICTORY" 

1093  PRINT 

1095  PRINT"D0  YOU  WANT  ANOTHER  BATTLE  "; 

1097  INPUT  Z$ 

1099  IF  Z$="NO"  THEN  1123 

1101  PRINT"REPAIRS  COMPLETED  " 

1103  GOTO  9 

1105  PRINT 
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1107  PRINTDO  YOU  WANT  ANOTHER  BATTLE" 

1109  INPUT  Z$ 

1111  IF  Z$="NO"  THEN  1123 

1113  PRINT"HERE!S  ANOTHER  STARSHIP,BE  MORE  CAREFUL  THIS  TIME" 

1115  GOTO  9 

1117  P3=1.5 

1119  GOTO  9 

1121  IF  D2=l  THEN  1125 

1123  PRINT"REPORT  TO  STARBASE" ; INT(RND(+1)*12)+1 

1125  END 

1127  REM  TRUMPETS 

1129  S=54272 

1131  FOR  X=S   TO  S+24-.P0KE  X,0:NEXT 

1133  POKE  S+5,10:POKE  S+6,197 

1135  POKE  S+24,15 

1137  READ  HF,LF,DR 

1139  IF  HF<0  THEN  GOTO  1200 

1141  POKE  S+1,HF:P0KE  S,LF:POKE  S+4,33 

1143  FOR  T=l  TO  DR:NEXT 

1145  POKE  S+4,32:F0R  T=l  TO  50: NEXT 

1147  GOTO  1137 

1149  DATA  6,71,512,8,97,128,11,48,512 

1151  DATA  10,143,128,8,97,192,7,12,192 

1153  DATA  9,104,192,12,143,1024,-1,-1,-1 

1199  S=0 

1200  RETURN 


COMPUTER  QUIZZES 

Computer  quiz  games  can  be  instructive  as 
well  as  fun,  if  clever  programming  techniques  are 
used.  Examples  of  these  techniques  include  the 
following: 

•  Having  a  large  data  base  of  questions  from  which 
a  few  are  randomly  selected  to  produce  a  new  set 
of  questions  for  each  quiz 

•  Automatically  recording  the  score  and  rewarding 
the  player  with  graphic  or  musical  interludes  for 
good  scores;  new  scores  may  be  compared  with 
old  scores  or  with  those  of  other  players 

•  Providing  explanations  of  missed  answers 

•  Allowing  for  the  selection  of  questions  according 
to  the  player  s  level  of  ability  or  providing  for  an 
automatically-adjusting  level  of  difficulty  based 
upon  performance 

Assorted  suggestions  concerning  topics  for 
quiz  games  include  the  following: 

•  Names  and  capitols  of  states  or  countries,  possi- 
bly using  computer  graphics  to  draw  maps 

•  Vocabulary  words 


•  I.Q.  tests 

•  Personality  and  aptitude  tests 

•  Foreign  language  vocabulary  or  grammar 

•  Preschool  skills  including  comparing  and  count- 
ing random  shapes,  words,  and  numbers,  and 
copying  letters,  words,  and  numbers 

•  Practice  questions  for  examinations  such  as  the 
SAT,  GMAT,  MCAT,  LSAT,  and  ACT. 

•  Analogies 

•  Spelling  bees 

•  Verses  from  literature  or  the  Bible 

•  Trivia  questions  for  trivia  lovers,  on  science  fic- 
tion, movies,  and  history 

•  Basic  math  skills 

•  Chemical  equation  balancing 

•  English  grammar 

•  History  of  the  United  States,  the  Renaissance 
period,  or  World  War  I 

•  Constellations  or  planets 

GAMES  THAT  USE  WORDS 

You  can  program  a  wide  variety  of  games  and 
activities  based  on  words  including  the  following: 
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Cryptograms,  or  coded  messages,  could  be  dis- 
played for  you  to  decode;  simple  clues  could  be 
provided. 

Anagrams,  or  jumbled  words,  are  a  popular  rec- 
reation. The  program  in  Listing  7-3  randomly 
chooses  one  of  many  words  stored  in  the  DATA 
statements  beginning  with  line  500.  The  program 
scrambles  the  letters  in  the  word  and  prints  it  on 
the  video  screen  for  you  to  unscramble  and  input. 
The  game  of  hangman,  in  which  one  has  ten 
guesses  to  determine  the  letters  in  a  randomly 
chosen  word,   serves  to  familiarize  the  player 


with  vocabulary  terms. 

Word  search  puzzles  ad  infinitum  may  be  com- 
puter generated,  either  from  a  word  list  or  as  a 
random  matrix  similar  to  the  popular  Boggle™ 
game.  A  program  to  determine  the  locations  of  all 
words  in  the  puzzle  could  also  be  implemented. 
You  could  also  have  the  computer  assist  in  crea- 
tion of  a  crossword  puzzle.  Choose  a  topic  and 
enter  words;  the  computer  will  automatically  fit 
the  common  letters  together  to  form  a  crossword 
grid.  Next,  enter  an  obscure  or  humorous  clue  for 
each  word.  The  completed  crossword  can  be 


Listing  7-3:  The  Anagram  Creator  Program 

10  PRINTCHR$(147)TAB(53)"ANAGRAM  CREATOR" 

20  REM  SCRAMBLES  WORDS  FOR  ENTERTAINMENT 

30  N=6:REM  NUMBER  OF  WORDS  IN  DATA  STATEMENT 

40  DIM  M(N),W$(N),A(20) 

50  FOR  1=1  TO  N 

60  M(I)=I 

70  NEXT  I 

80  FOR  1=1  TO  N-l 

90  R=(N+1-I)*RND(0) 

100  R=INT(R)+I 

110  T=M(R) 

120  M(R)=M(I) 

130  M(I)=T 

140  NEXT  I 

150  FOR  1=1  TO  N 

160  READ  W$(M(I)) 

170  NEXT  I 

180  FOR  1=1  TO  N 

185  A$="" 

190  A=LEN(W$(I)) 

200  FOR  B=l  TO  A 

210  A(B)=B 

220  NEXT  B 

230  FOR  B=l  TO  N-l 

235  S=(A+1-B)*RND(0) 

240  S=INT(S)+B 

250  C=A(S):A(S)=A(B):A(B)=C 

260  NEXT  B 

270  FOR  B=l  TO  A 

280  A$=A$+MID$(W$(I),A(B),1) 

290  NEXT  B 

300  PRINT  A$ 

310  INPUT  C$ 

320  IF  C$=W$(I)  THEN  PRINT  "RIGHT!": GOTO  330 

325  PRINT"WR0NG,  THE  ANSWER  WAS:";W$(I) 

330  NEXT  I 

340  END 

500  DATA  STATEMENTS, CONTAIN, WORDS, HERE 

510  DATA  COMPUTER,  TELEVISION,  GAME,  INSTRUMENT, WRITE, BASIC 
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saved  for  later  use  or  printed  and  sent  to  friends. 

•  Word  guessing  games,  similar  to  twenty  ques- 
tions, can  be  computerized.  In  these  games,  the 
player  asks  the  computer  questions  to  determine 
what  word  has  been  randomly  selected.  Replies 
for  the  many  possible  questions  a  human  could 
pose  must  be  stored;  thus  there  are  difficult 
programming  challenges.  The  dialogue  with  one 
such  program  went  like  this: 

(c=computer,  h=human) 
h:  Does  it  grow? 

c:  To  answer  that  question  might  be  mis- 
leading, 
h:   Can  I  eat  it? 
c:   Only  as  food  for  thought, 
h:  Do  computers  have  it? 
c:  Strictly  speaking,  no. 
c:  The  word  is  "Knowledge." 

•  A  word  game  similar  to  the  popular  Mastermind™ 
game  would  involve  the  computer's  selecting  a 
three-letter  word  from  a  large  list.  The  player 
would  guess  by  entering  a  three-letter  word  and 
would  be  told  whether  or  not  the  computer's 
word  contained  any  of  the  letters  in  the  word  the 
player  guessed  and  whether  or  not  those  letters 
were  in  the  correct  position.  The  object  is  to 
guess  the  computer's  word  in  the  least  number  of 
tries. 

•  In  the  game  of  Confound,  the  computer  outputs 
15  letters  (consonants  and  vowels).  The  players 
must  form  the  longest  word  possible  using  these 
letters.  The  computer  serves  to  keep  score  and 
check  to  ensure  that  no  letters  were  used  im- 
properly, that  is,  used  more  often  than  they  ap- 
pear in  the  list. 

Story  Writer 

Using  the  combination  of  a  random  number 
generator,  a  list  of  words,  and  simple  rules  for 
English  grammar,  a  microcomputer  can  compose 
original  stories  ad  infinitum;  the  results  are  often 
amusing.  Here  are  some  story  writing  suggestions: 

•  Use  a  standard  story  line  in  which  blanks  are  left 
to  be  filled  in  with  inputted  words.  The  inputted 
words  could  consist  of  personalized  information, 


or  arbitrary  nouns,  adjectives,  and  adverbs,  as 
done  in  the  Mad  Libs™  party  games.  For  exam- 
ple, a  story  could  begin 

Space,  the  (adjective)  frontier. 

These  are  the  voyages  of  the  starship  (noun), 

It's  five-year  mission: 

To  seek  out  new  (noun)  and  new  (noun)  .  .  . 

The  operator  is  requested  to  provide  one  adjec- 
tive and  three  nouns  to  fill  in  the  four  blanks 
above,  but  is  unaware  of  the  story  line  until  later 
when  these  words  are  incorporated  and  the  story 
is  printed  out.  Here  is  a  sample  result. 

Space,  the  nauseating  frontier. 

These  are  the  voyages  of  the  starship  lemon 

Its  five-year  mission: 

To  seek  out  new  games  and  new  computers  .  . 

Also  included  in  this  category  are  "Me  Books" 
for  young  children.  The  computer  fills  the  blanks  in 
a  story  with  a  child's  name,  address,  and  other 
personalized  information.  The  resultant  per- 
sonalized story  often  increases  a  child's  interest  in 
reading. 

•  A  much  more  difficult  approach  to  story  writing 
involves  the  random  selection  of  words  or 
phrases  to  compose  a  series  of  sentences  that 
follow  standard  rules  of  grammar.  A  program 
written  in  1960  (before  high-level  languages 
were  in  widespread  use)  called  SAGA  was  de- 
signed to  produce  short  scripts  for  movie  west- 
erns. Here's  a  sample  of  the  output: 

Sheriff: 

The  Sheriff  is  at  the  window 

Sheriff  sees  robber 

Robber  sees  Sheriff 

go  to  door 

wait 

open  door 

Sheriff  sees  robber 

go  through  door 

robber  sees  Sheriff 

go  to  window 
Robber: 

take  gun  from  holster  with  right  hand 

aim 
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fire 

Sheriff  nicked 
Sheriff: 

take  gun  from  holster  with  right  hand 

aim 

fire 

robber  hit 

blow  out  barrel 

put  gun  down  at  door 

go  to  table 

pick  up  glass  with  right  hand  .  .  . 

Writing  a  program  to  accomplish  the  above  is 
more  complex  than  it  would  seem  on  first  impres- 
sion; the  program  was  considered  quite  an 
achievement  in  1960.  Random  numbers  were  used 
to  determine  the  sequence  of  events;  the  events 
were  selected  from  a  wide  range  of  preprogrammed 
possibilities.  The  program  had  to  guard  against  a 
character  firing  a  gun  without  first  withdrawing  it 
from  his  holster  and  similar  situations.  Also,  a 
routine  was  necessary  to  compose  "sentences" 
using  the  rules  of  grammar  (for  example,  "gun  takes 
robber  from  holster  with  right  hand"  would  not  be 
allowed,  but  "robber  takes  gun  from  holster  with 
right  hand"  would  be  allowed).  The  use  of  pro- 
grammed phrases  instead  of  individual  words  to 
select  from  would  simplify  this  task  considerably. 
In  like  manner,  a  science  fiction  spoof  or  soap  opera 
dialogue  could  be  written.  A  professional  software 
house  sells  a  program  to  produce  random,  technical 
double-talk  to  "fill  out  business  reports  that  are  too 
short."  A  sample  line  produced  by  the  program 
reads,  "The  product  configuration  requires  consid- 
erable analysis  and  trade-off  studies  to  arrive  at  the 
total  system  rational." 

MAGIC 

Magic  tricks  performed  by  your  computer 
would  make  an  interesting  demonstration  for  your 
guests.  Here  are  some  suggestions: 

Micro  mentalist.  The  computer  becomes  a 
mind  reader  in  this  trick.  The  performer,  who  is  the 
computer  operator,  is  given  an  item  from  the  audi- 
ence. The  performer  enters  a  question  such  as, 
"What  is  the  item  given  to  me  by  the  audience?" 


After  a  brief  delay,  the  computer  displays  the  name 
of  the  item. 

The  trick  is  based  on  a  code  programmed  into 
the  computer  that  allows  the  performer  to  indicate 
inconspicuously  to  the  computer  which  of  approxi- 
mately 20  items  he  has  been  given.  The  code  is 
contained  within  the  inputted  sentence;  different 
sentences  stand  for  different  objects.  For  example, 
"What  do  I  have  now?"  could  indicate  a  watch,  and 
"What  am  I  holding?"  could  indicate  a  match  folder. 
The  computer  merely  matches  the  inputted  ques- 
tion to  the  item  list  stored  in  its  memory. 

Age  determination.  The  performer  hands  a 
member  of  the  audience  a  pocket  calculator  and 
tells  him  to  enter  his  age  and  then  subtract  his 
favorite  one-digit  number.  Next,  the  guest  multi- 
plies this  result  by  nine  and  adds  his  age  to  the 
product.  The  final  result  is  called  out  and  is  inputted 
to  the  computer.  The  determination  of  the  guest's 
age  is  accomplished  by  adding  the  first  two  digits  in 
the  result  to  the  last  digit  (for  example,  if  the  result 
were  176,  adding  17  and  6  gives  you  23,  the  guest's 
age). 

The  break  in  the  chain.  This  trick  is  per- 
formed with  a  complete  set  of  dominoes  (usually  28 
pieces).  Beforehand,  the  performer  removes  one  of 
the  dominoes  (it  may  not  be  a  double)  and  inputs  the 
two  numbers  on  the  domino  to  be  stored  in  the 
computer.  The  guests  are  given  the  remaining  set 
and  are  asked  to  complete  a  single  domino  chain  as 
in  regular  play.  Once  completed,  the  numbers  on 
the  two  ends  of  the  chain  are  noted,  and  the  per- 
former inputs  a  question  such  as,  "What  are  the  two 
numbers?"  The  computer  replies  correctly  by  dis- 
playing the  two  previously  stored  numbers.  The 
trick  is  automatic  and  will  work  with  any  domino 
chosen,  excluding  doubles. 

COMPUTER-INTELLIGENCE  GAMES 

Programs  can  be  written  to  make  a  computer 
"learn"  from  its  mistakes,  entering  the  realm  of 
artificial  intelligence.  A  checker-playing  program 
that  stores  the  results  of  all  previous  moves  has 
been  written.  Although  the  time  necessary  to  de- 
cide on  a  move  increases  as  the  game  progresses, 
the  computer's  moves  are  much  better  than  they 
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were  at  the  beginning  of  the  game.  Here  are  some 
games  that  the  computer  can  "learn"  to  play. 

•  Nim  as  described  earlier  in  this  chapter,  is  a 
popular  computer  game  in  which  a  player  may 
take  1,  2,  or  3  items  from  a  pile  of  20  in  an  attempt 
to  force  an  opponent  to  take  the  last  item.  Al- 
though this  game  is  completely  solvable,  a  Nim 
program  could  be  written  as  a  demonstration  of 
computer  "learning." 

•  A  BASIC  game  called  Animal,  in  which  the  com- 
puter plays  the  game  of  twenty  questions  with  a 
human,  has  been  written.  The  computer  asks 
such  questions  as  "Does  it  swim?"  to  try  to  de- 
termine what  animal  the  human  is  thinking  of.  If 
that  animal  is  not  in  the  computer's  file,  the 
human  is  requested  to  provide  information  so  that 
a  file  on  the  new  animal  can  be  created.  Thus,  the 
computer  "learns."  Of  course,  it  may  be  in- 
teresting to  use  a  subject  other  than  animals;  for 
example,  you  could  use  places  instead  of  animals 
to  help  young  people  learn  geography. 

•  A  crude  "mind  reading"  program  based  upon 
probability  could  be  created.  The  human  would 
be  instructed  to  choose  one  of  two  words.  Then 
the  computer  will  output  the  word  it  "believes" 
was  chosen.  After  a  number  of  trials,  the  com- 
puter should  be  able  to  formulate  a  strategy  for 
guessing  which  word  will  be  chosen  next,  be- 
cause humans  can  never  be  random  and  tend  to 
guess  in  patterns;  theoretically,  the  computer 
should  be  able  to  achieve  better  than  50%  cor- 
rect responses. 

Other  applications  of  personal  computers  in 
the  area  of  artificial  intelligence  include  programs 
that  can  tutor  humans  to  play  complex  games  such 
as  chess,  in  which  moves  can  be  analyzed  and 
changed,  and  suggestions  or  tips  given. 


PROGRAMS  FOR  YOUNG  CHILDREN 

Programs  that  make  liberal  use  of  graphics  and 
are  designed  to  be  foolproof  may  serve  as  educa- 
tional tools  for  young  children.  They  can  familiarize 
children  with  using  a  keyboard,  cursors,  and  com- 
puter graphics,  and  can  provide  learning  experi- 
ences. Suggestions  include  the  following: 


•  Matching  Games:  children  can  match  letters, 
words,  and  shapes. 

•  Drawing  Machine:  a  joystick  controller  or  arrow 
keys  permit  drawing  on  a  video  screen.  A  library 
of  shapes  including  squares,  triangles,  and  cir- 
cles can  also  be  used  to  construct  pictures. 

•  Face  Maker:  children  can  create  their  own  funny 
face  on  a  video  screen  by  selecting  eyes,  ears,  a 
nose,  hair,  and  a  mouth  from  a  collection  of  pos- 
sibilities. 

•  Storybook:  using  the  keyboard,  children  can 
write  their  own  stories,  which  the  computer  then 
interprets  and  animates  on  the  screen.  Stories 
can  involve  stored  images  such  as  houses,  trees, 
people,  and  cars,  which  may  then  be  animated  to 
illustrate  a  sentence  such  as  "The  girls  walked 
from  home  to  school." 

THE  COMPUTER  AS  BOARD  DISPLAY 
DEVICE,  BOOKKEEPER,  AND  GAME  ADVISOR 

Certain  games  are  designed  in  such  a  way  that 
the  computer  cannot  be  programmed  to  be  a  formid- 
able opponent.  You  can  use  the  computer  with  these 
games  in  other  ways,  including  the  following: 

•  Board  display  and  bookkeeping  for  complex 
board  games  such  as  Risk™,  Stratego™,  Go, 
Metagames,  and  Avalon-Hill  games  can  be  ac- 
complished with  high-resolution  graphics.  In  ad- 
dition to  displaying  the  board,  the  computer  could 
—generate  random  numbers  to  replace  spinners, 

dice,  cards 
—record  each  move  for  later  review 
—compute  the  game  status  at  the  end  of  each 

turn 
—compute  energy,  arsenal,  moves,  positions, 

money  and  statistics  for  each  player. 

•  Advising  and  bookkeeping  for  such  games  as 
checkers  and  chess  can  be  accomplished.  The 
computer  could  store  each  move,  advise  against 
potential  checks,  skewers,  and  forks,  alert  the 
players  to  discoveries,  and  print  a  listing  of  the 
game,  move  by  move,  at  the  finish.  Advising  for 
gambling  games  such  as  blackjack  could  take  the 
form  of  the  creation  of  an  odds  table  for  the  high 
cards  remaining  in  the  deck,  the  computation  of 
whether  to  stay  or  hit,  and  the  calculation  of  the 
safest  amount  to  bet. 
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DRAWING  AND  KALEIDOSCOPE  PROGRAMS 

Most  picture  drawing  programs  utilize  the 
arrow  (cursor  positioning)  keys  on  the  video  termi- 
nal keyboard  to  direct  a  cursor  point  that  leaves  a 
line.  Several  additions  could  be  made  to  these  pro- 
grams, including  animation  routines,  special  stan- 
dard designs  that  may  be  called  to  the  screen,  pro- 
visions for  storing  a  design  on  cassette  or  floppy 
disk,  and  for  using  light  pens  and  joysticks.  The 
kaleidoscope  effect  refers  to  a  computer  algorithm 
used  to  alter  a  design  in  kaleidoscope  fashion  (that 
is,  the  design  is  multiply  reflected  as  its  mirror 
image)  in  real  time.  Fascinating  "modern  art"  de- 
signs can  be  made  with  programs  that  use  random 
numbers  with  the  DRAW,  LINE,  CIRCLE,  FULL, 
and  PAINT  commands  found  in  some  BASIC  inter- 
preters. Random  lines  and  circles  of  various  sizes 
fill  the  screen,  and  each  area  defined  by  lines  is 
filled  in  with  various  colors. 

SIMULATION  AND  ADVENTURE  GAMES 

Simulations  of  real-world  situations  need  not 
be  outputted  as  complex  numerical  listings;  they 
may  be  transformed  into  games  suited  for  people 
young  and  old.  Some  of  the  many  possibilities  in- 
clude the  following: 

Pool  Table.  A  pool  playing  game  displayed 
using  video  graphics  could  serve  to  teach  the  prin- 
ciples of  elastic  collisions  and  angular  geometry. 

Motorcycle  Jump.  A  simulation  in  which  a 
motorcycle  must  leap  a  certain  distance  to  land 
safely  could  illustrate  projectile  motion.  The  ramp 
angle  and  initial  motorcycle  velocity  would  be  de- 
termined by  the  person  playing  the  game. 

Projectile  motion  formulae  are  provided  below 
for  those  with  faint  recollections  of  high  school 
physics: 

1.   Position  relative  to  point  of  projection  after  time 
t 


\ 
1 

/        V 

H  a  initial  velocity 

X  =  v   t  cos  0 


y  —  v  t  sin  6 


gt2 


2.   Range,  maximumheight  and  time  of  flight 

2v 

T  =  — ±    sin  0 


2V2 


R  = 


sin  6  cos  6 


H  =  — -    sin2  6 
2g 

3.  Necessary  angle  of  projection  for  given  range 
with  given  speed  of  projection 

sin  2a  —   —j-    Rg  giving  two  possible 
angles  ct,  and  a  ,  and  a2. 

Navigation.  A  simulation  in  which  the  par- 
ticipant must  find  his  way  to  an  island,  using  a  radio 
direction  finder  in  his  sailboat,  could  teach  princi- 
ples of  geometry  as  well  as  sailboat  handling  for 
example. 

Detective.  The  participant  would  assume  the 
role  of  a  detective  in  this  simulation.  A  valuable 
gem  has  been  stolen  from  a  museum  and  five  per- 
sons are  suspected.  The  use  of  deductive  reasoning 
is  the  only  way  the  detective  can  solve  this  crime. 

MX  Missile.  In  this  grid  search  game,  one 
player  hides  MX  missiles  among  several  possible 
silos  and  may  shuffle  missiles  while  the  other 
player  shoots  at  them  trying  to  hit  silos  containing 
missiles. 

World  Race.  Using  a  combination  of  race  and 
rally  tactics,  players  compete  to  be  the  first  to 
motor  from  England  to  New  York  and  back  to  New 
York,  navigating  their  way  through  Europe,  Asia, 
the  far  east,  and  South  America.  Strategy  plays  a 
large  part  as  players  have  to  motor  through  towns  in 
every  country  in  order  to  pick  up  points.  Out  of  the 
way  towns  score  higher  than  those  along  main 
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routes.  The  winner  is  the  player  who  reaches  New 
York  in  the  least  time  and  with  the  most  points. 
Rabies  in  Europe,  tropical  rains  in  South  America, 
drought  in  Africa,  and  so  on  deter  everyone's  prog- 
ress. The  game  serves  to  teach  geography. 

Wall  Street.  A  stock  market  simulation, 
preferably  multiplayer,  would  allow  players  to  buy 
and  sell  stocks  according  to  market  conditions.  A 
computer  determines  the  outcome  of  each  round 
and  the  price  for  each  stock  and  serves  as  book- 
keeper. 

World  Conflict.  This  multiplayer  simulation 
would  place  each  player  as  the  head  of  a  nation. 
Players  must  decide  whether  they  should  go  to  war, 
form  cartels,  or  make  concessions  and  com- 
promises. The  computer  could  select  the  conflict- 
ing situations  (for  example,  oil  embargoes,  assassi- 
nations, nuclear  threats,  Communist  expansion). 

Decision.  A  simulation  of  corporate  manage- 
ment and  big  business  could  place  each  player  as  a 
top  level  executive.  Each  executive  has  the  author- 
ity to  produce  the  product  of  his  choice  and  sell  the 
product  at  the  best  market  price.  Throughout  the 
game,  prices  fluctuate  according  to  the  law  of  sup- 
ply and  demand. 

Fire.  The  object  of  this  simulation  is  to  subdue 
a  raging  forest  fire  with  chemicals,  backfires,  and 
other  fire-fighting  methods.  The  success  of  the 
player  depends  upon  quick  decisions  concerning 
how  to  control  a  geometrically  increasing  fire. 

Atomic  Fission.  This  simulation  dem- 
onstrates geometric  progressions  by  simulating  a 
nuclear  reaction  in  which  each  split  atom  releases 
enough  energy  to  split  two  or  more  other  atoms, 
and  so  on. 

Auction.  Principles  of  bidding  at  an  auction 
could  be  simulated  in  a  one  or  more  player  game 
involving  the  auction  of  art.  Players  must  be  careful 
of  forgeries. 

Adventure.  The  object  of  this  simulation  is 
survival  in  a  desperate  attempt  to  locate  buried 
treasure  on  an  island.  How  does  one  obtain  fresh 
water  on  an  island  surrounded  by  salt  water? 

Ethics.  This  simulation,  involving  the  conflict 
between  morals  and  greed,  uses  the  computer  as 
the  judge  of  ethics.  Conflicting  situations  in  which 


players  must  decide  the  outcome  are  provided.  If  a 
preprogrammed  decision  does  not  match  with  a 
player's,  that  player  accumulates  ''morality  deduc- 
tions." The  winner  is  the  player  with  the  most 
money  and  fewest  deductions. 

Careers.  This  simulation  game  places  the 
player  in  new  occupations  to  enable  him  or  her  to 
experience  decision  making,  conflicts,  oppor- 
tunities, and  financial  stress  from  different  view- 
points in  a  variety  of  careers. 

Artillery.  This  is  a  simulation  in  which  a  gun 
in  a  fixed  emplacement  must  fire  a  projectile  at  such 
a  velocity  and  angle  that  it  will  hit  a  target.  The 
distance  the  projectile  lands  from  the  target  could 
be  displayed  as  the  integer  of  the  log  to  the  base  2  of 
the  absolute  value  of  the  distance;  several  other 
possibilities  exist  for  teaching  mathematical  princi- 
ples. 

Grid  Search  Simulations.  A  search  game, 
for  example,  one  that  pitted  a  destroyer  against  a 
submarine,  could  be  programmed.  The  game  would 
use  a  10x10  grid  that  must  be  selectively  searched 
by  the  ship  or  the  submarine  in  its  efforts  to  find  and 
attack  the  other  vessel.  Similarly,  a  game  played 
on  the  same  grid  could  involve  a  spy  searching  for 
hidden  documents  with  hidden  enemy  agents  to 
watch  for  as  well. 

Rat  Race.  A  video  graphics  program  that 
draws  a  maze  and  animates  a  mouse  could  be 
created.  The  programming  involved  in  enabling  the 
mouse  to  "learn"  to  solve  the  maze  could  dem- 
onstrate rudimentary  artificial  intelligence  princi- 
ples. 

Computer.  Based  on  a  large  scale  computing 
system,  the  object  of  this  simulation  is  to  process 
two  complete  programs  before  your  opponents  can. 
Players  who  make  the  best  decisions  can  avoid  the 
jeopardies  of  power  failures,  restricted  use  of  I/O 
channels,  bugs,  and  priority  interrupts. 

Laser  Tank.  The  player  and  the  opponent 
(the  computer)  each  have  a  laser-firing  tank  and  a 
base.  The  object  is  to  be  the  first  to  destroy  the 
opponent's  base  while  avoiding  his  fire.  Obstacles 
litter  the  battlefield,  and  laser  fire  is  destructive 
only  at  a  limited  range. 

Robotwar.  The  purpose  of  this  simulation  is 
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0=No    Move 

9  =  End  the  Game 


Fig.  7-1 6.  The  numbers  corresponding  to  the  directions  in  the 
Robot  II  game. 

to  teach  computer  programming.  Two  opposing 
players  are  instructed  to  secretly  design  programs, 
written  in  a  custom  language,  that  would  create  and 
control  robots  designed  to  annihilate  any  other 
robots.  The  programs  would  be  entered,  and  a  video 


display  of  the  combat  field  would  be  updated  in 
real-time.  The  objective  could  be  to  hit  the  oppos- 
ing robot  five  times  to  win. 

Robot  War  II.  The  program  in  Listing  7-4, 
Robotwar  II  is  a  challenging  game  to  play  against 
your  computer.  In  the  game,  you  are  represented 
by  an  *,  while  the  computer  controls  annihilating 
robots  represented  by  +.  An  electrified,  lethal 
fence  defines  the  playing  field. 

The  computer's  robots  will  destroy  you  if  they 
come  close.  However,  the  robots  will  destroy 
themselves  if  they  run  into  the  fence.  Your  objec- 
tive is  to  evade  the  robots  until  all  have  been  de- 
stroyed by  the  fence.  To  move  in  a  desired  direc- 
tion, use  the  chart  in  Fig.  7-16,  which  indicates  the 
number  to  input. 


Listing  7-4:  The  Robotwar  II  Program 

160  PRINTCHR$(147)TAB(45)" ROBOTWAR  II- 

170  PRINT 

199  REM  SET  UP  THE  GAME 

200  DIM  A(10,20),E(21),F(21) 
210  G=0:Z7=1 

220  FOR  B=l  TO  10 
230  FOR  C=l  TO  20 
240  A(B,C)=0 

250  IF  BOl  THEN  260 

251  A(B,C)=1 

260  IF  BO10  THEN  270 

261  A(B,C)=1 

270  IF  COl  THEN  280 

271  A(B,C)=1 

280  IF  CO 20  THEN  290 

281  A(B,C)=1 
290  NEXT  C 
300  NEXT  B 

310  FOR  D=l  TO  21 
320  B=INT(RND(l)*8)+2 
330  C=INT(RND(l)-;;-18)+2 
340  IF  A(B,C)<>0  THEN  320 
350  A(B,C)=1 

360  IF  D>=6  THEN  370 

361  A(B,C)=2 

370  IF  D<>6  THEN  380 

371  A(B,C)=3 
380  E(D)=B 
390  F(D)=C 
400  NEXT  D 

499  G0SUB  2000: REM  PRINT  PATTERN 

500  FOR  B=l  TO  10 
510  FOR  C=l  TO  20 

520  IF  A(B,C)<>0  THEN  530 
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521  PRINT  "  "; 

530  IF  A(B,C)<>1  THEN  540 

531  PRINT  "X"; 

540  IF  A(B,C)<>2  THEN  550 

541  PRINT  "+"; 

550  IF  A(B,C)<>3  THEN  560 

551  PRINT  "*"; 
560  NEXT  C 
570  PRINT 

580  NEXT  B 

599  REM  MAKE  MOVE 

600  B=E(6) 
610  C=F(6) 
620  A(B,C)=0 
630  INPUT  Y 

640  IF  Y=0  THEN  800 

650  ON  Y  GOTO  660,660,660,690,680,680,680,690,1400 

660  B=B-1 

670  GOTO  690 

680  B=B+1 

690  ON  Y  GOTO  700,800,720,720,720,800,700,700 

700  C=C-1 

710  GOTO  800 

720  C=C+1 

799  REM  CALCULATE  THE  RESULTS 

800  IF  A(B,C)=1  THEN  1500 
810  IF  A(B,C)=2  THEN  1600 
820  A(B,C)=3 

830  E(6)=B 

840  F(6)=C 

850  FOR  D=l  TO  5 

860  IF  A(E(D),F(D))<>2  THEN  960 

870  A(E(D),F(D))=0 

880  IF  E(D)>=B  THEN  890 

881  E(D)=E(D)+1 

890  IF  E(D)<=B  THEN  900 

891  E(D)=E(D)-1 

900  IF  F(D)>=C  THEN  910 

901  F(D)=F(D)+1 

910  IF  F(D)<=C  THEN  920 

911  F(D)=F(D)-1 

920  IF  A(E(D),F(D))=3  THEN  1600 

930  IF  A(E(D),F(D))=0  THEN  940 

931  G=G+1 

940  IF  A(E(D),F(D))<>0  THEN  950 

941  A(E(D),F(D))=2 
950  IF  G=5  THEN  1700 
960  NEXT  D 

970  PRINT  "MAP"; 

980  INPUT  Y$ 

990  IF  Y$="Y"  THEN  499 

995  GOTO  600 

1025  Z7=Z7+1 

1400  PRINT"S0RRY  TO  SEE  YOU  QUIT" 

1401  Z9=Z9+1 
1410  GOTO  1710 

1500  PRINT"Y0U  TOUCHED  THE  FENCE" 

1501  Z9=Z9+1 


187 


1510 

GOTO  1710 

1600 

PRINT" YOU  HAVE  BEEN  DESTROYED  BY  A  ROBOT!" 

1601 

Z9=Z9+1 

1610 

GOTO  1710 

1700 

PRINT"-;H'-YOU  DESTROYED  THE  ENEMY**" 

1701 

Z8=Z8+1 

1710 

PRINT"DO  YOU  WANT  TO  PLAY  AGAIN  (Y/N)"; 

1720 

INPUT  Y$ 

1730 

IF  Y$="Y"  THEN  210 

1731 

Z7=Z9+Z8 

1732 

PRINT"COMPUTER  W0N:";Z9;"  ","THE  HUMAN  W0N:";Z8 

1733 

PRINT"COMPUTER ; S  AVERAGE : " ; INT( 100*Z9/Z7) ;  "%" 

1734 

PRINT  "THE  HUMANTS  AVERAGE: ";INT(100*Z8/Z7) ; "%" 

1735 

PRINT 

1740 

PRINT"HOPE  YOU  DON 'FEEL  FENCED  IN" 

1750 

PRINT"TRY  AGAIN  SOMETIME." 

1760 

END 

2000 

PRINTCHR$(147) 

2010 

PRINT  TAB(30)"2" 

2020  PRINT  TAB(28)"1";TAB(32)"3" 

2030  PRINT  TAB(26)"8";TAB(34)"4M 

2040 

PRINT  TAB(28)"7";TAB(32)"5" 

2050 

PRINT  TAB(30)"6" 

2060 

PRINT  TAB(67)"0=N0  MOVE" 

2070 

PRINT  TAB(27)"9=QUIT" 

2080 

PRINTCHR$(19):RETURN 

VIDEO  GAMES 

A  personal  computer  with  a  memory-mapped 
video  display  and  high-resolution  graphics  could 
emulate  the  popular  video  games.  Although  pro- 
grams written  in  BASIC  do  not  execute  as  fast  as 
the  real  video  games  do,  programs  written  in  as- 
sembly language  do  run  as  fast.  Here  are  some 
ideas  you  might  want  to  try: 

Maxwell's  Demon.  Seven  floating 
molecules  ar  trapped  in  one  chamber  of  a  two- 
chamber  box.  A  gate  connects  the  two  compart- 
ments.The  molecules  are  constantly  bombarding 
each  other  and  bouncing  off  walls;  the  object  is  to 
open  and  close  the  gate  at  the  right  time  so  that  all 
molecules  will  be  trapped  in  the  other  compartment. 

Hockey  and  Tennis  type  games.  These 
computer  games  could  be  controlled  with  joysticks, 
simple  potentiometers,  or  keyboard  switches  just 
as  their  video  game  counterparts  are. 

Tanks.  In  a  projectile-shooting  battle  be- 
tween two  tanks,  the  computer  could  act  as  the 
opponent.  Similarily,  a  battle  could  be  designed  for 
jet  fighters,  biplanes,  or  ships  instead  of  tanks. 

Pinball.  A  moving  set  of  paddles  could  replay 


a  ''ball"  to  hit  targets  and  score  points. 

Lunar  Lander.  This  game  involves  a  lunar- 
landing  module  that  is  governed  by  rocket  propul- 
sion, fuel  supply,  and  gravity.  It  must  land  at  a  low 
velocity  so  that  no  damage  is  done  and  must  land  on 
a  plateau,  avoiding  lunar  mountains  and  craters. 
The  lunar  lander  program  could  be  made  more  com- 
plex by  requiring  that  you  take-off  from  the  lunar 
surface,  navigate  over  an  obstacle  of  random  size, 
and  land  again  accurately. 

Football,  Baseball,  and  Basketball.  An 
animated  display  of  players,  ball  positions,  and  the 
playing  field  could  be  used  to  display  the  action  in 
these  sports. 

Racetrack.  The  object  of  this  game  is  to  finish 
the  race  in  the  least  time.  Hazards  include  attaining 
too  much  speed  to  slow  down  before  a  curve,  oil 
slicks,  and  other  cars.  Hazards  cause  you  to  lose 
time. 

Skydiver.  The  player  in  this  game  i  -ist  con- 
trol chute  opening  and  jump  time  for  a  parachutist 
who  must  land  at  a  precise  point.  A  wind  of  ran- 
domly selected  direction  and  velocity  presents  a 
challenge  to  overcome. 
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Robot  Bowl.  The  player  controls  a  bowling 
robot  in  an  attempt  to  knock  down  as  many  pins  as 
possible.  The  time  of  release,  angle  of  approach, 
and  weight  of  the  ball  are  selected  by  the  player. 

Shooting  Gallery.  Several  moving  targets  of 
different  point  values  and  a  directional  "gun"  could 
comprise  a  video  version  of  the  popular  shooting 
gallery. 

Golf.  A  golf  game  with  a  set  of  graphical  holes 
(or  design-your-own-hole  provisions)  would  let  the 
players  choose  the  clubs  they  will  use  for  each  shot 
and  the  angle  at  which  the  ball  will  be  hit.  Hazards 
include  sand  traps,  water,  "dog-legs,"  and  strong 
winds. 

RECREATIONS  INVOLVING  THE  COMPUTER  ITSELF 

A  hobby  computer  magazine  once  listed  some 
suggestions  on  "busting  your  computer"  to  deter- 
mine the  limitations  of  your  BASIC  (or  other  high- 
level  language). The  results  may  surprise  you.  Here 
are  a  few  ideas: 

•  Determine  the  maximum  number  of  parentheses 
that  can  be  used  in  one  statement.  (Don't  be 
surprised  if  over  100  are  allowed!) 

•  Determine  the  maximum  dimension  allowed  for 
an  array. 

•  Determine  the  maximum  number  of  nested 
FOR-NEXT  loops  allowed. 

Other  challenges  include  writing  a  "self- 
duplicating"  program  that  is  not  simply  composed  of 
verbatim  PRINT  statements,  yet  prints  a  duplicate 
of  itself.  If  you  are  ambitious,  you  might  attempt  to 
break  the  record  for  carrying  out  Pi  to  the  most 
decimal  places  (500,000). 

COMPUTERS  AND  CHESS 

Chess  is  one  of  the  most  popular  computer 
recreations  for  several  reasons.  First,  it  requires 
an  advanced  level  of  computer  programming,  de- 
scribed by  some  as  "artificial  intelligence,"  that 
enables  a  computer  to  emulate  human  thought. 
Second,  it  may  be  difficult  to  find  chess  opponents 
at  your  level  of  ability.  The  computer,  as  your 
opponent,  solves  that  problem  by  having  adjustable 


skill  levels,  making  it  possible  to  find  an  opponent 
of  your  own  strength.  Third,  many  chess  programs 
can  serve  as  chess  tutors  by  suggesting  moves, 
demonstrating  piece  movements,  allowing  the 
rearrangement  of  boards,  and  even  stepping  you 
through  a  collection  of  games  from  masters-level 
tournaments.  Many  of  today's  chess  programs  are 
rated  in  the  middle  1200s  or  above  and  can  serve  as 
a  formidable  opponent  for  novice  to  intermediate 
level  players. 

Chess  playing  programs  are  almost  always 
written  in  assembly  language  for  the  purpose  of 
speed;  they  may  analyze  from  a  few  thousand  to 
over  one  million  possibilities  before  making  a 
move.  A  large  scale  computer  chess  program  is 
described  below  for  those  interested  in  the  inner 
workings  of  the  game.  The  discussion  can,  perhaps, 
provide  added  insights  for  your  game  and  can  assist 
those  who  are  interested  in  writing  their  own  chess 
programs.  A  warning,  however:  most  credible 
chess  programs  have  required  thousands  of  man- 
hours  in  development  time  and  are  truly  a  pro- 
grammer's ultimate  challenge. 

The  program  described  here  is  named  OS- 
TRICH; it  competed  in  the  First  World  Computer 
Chess  Tournament.  The  OSTRICH  program  is 
composed  of  three  modules:  BOOK,  which  pro- 
vides standard  book  opening  moves  for  up  to  the 
first  five  moves,  CHESS,  which  is  the  main  pro- 
gram used  during  most  of  the  game,  and  END 
GAME,  which  takes  over  in  rook/king  or  queen  and 
king/king  end  games.  CHESS,  the  main  module,  is 
comprised  of  approximately  9000  instructions, 
which  are  divided  into  five  subprograms: 

1.  A  subroutine  for  the  control  of  input  and  output 
and  for  the  control  of  the  size  of  the  search  tree. 
The  search  tree  refers  to  the  branching  search 
for  all  move  possibilities  that  the  computer 
performs  before  making  each  move.  The  size  of 
the  tree  indicates  the  depth  or  number  of 
moves  ahead  that  will  be  considered  for  each 
move. 

2.  A  subprogram  to  generate  all  move  pos- 
sibilities or  search  the  tree. 

3.  A  subprogram  to  arrange  each  possible  move 
on  a  hierarchy  scale  according  to  its  plausibility 
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(each  move  is  given  a  plausibility  score).  Fol- 
lowing this  initial  ordering,  another  set  of 
routines  is  called  upon  to  improve  the  order- 
ing. 

4.  A  subprogram  to  calculate  a  terminal  score  or 
to  evaluate  the  chess  board  at  each  terminal  or 
branching  point  in  the  tree. 

5.  A  subroutine  to  update  all  arrays,  lists,  and 
pointers  used  by  the  remainder  of  the  program. 

The  Reference  Arrays  Used  by  Chess 

1.  The  lists  of  the  locations  of  each  chess  piece: 
an  8  x  8  array  holds  an  identification  number 
for  each  of  the  pieces  on  the  board,  in  a  corres- 
ponding memory  location.  The  white  pieces 
are  identified  as  follows:  King  =  6,  Queen  =  5, 
Rook  —4,  Bishop  =3,  Knight  =2,  and  Pawn  =1. 
The  black  pieces  are  identified  as  the  negative 
of  the  corresponding  white  piece  number.  The 
boards  position  array  is  updated  after  each 
move. 

2.  The  piece  location  arrays:  two  separate  arrays 
are  generated  at  the  beginning  of  each  tree 
search.  The  list  contains  the  names  and  cor= 
responding  locations  of  the  white  pieces;  the 
other  does  the  same  for  the  black  pieces. 

3.  The  possible  moves  list:  a  list  of  possible 
moves  for  ply  1  (ply  refers  to  the  depth 
searched),  ply  2,  and  ply  3,  corresponding  to 
each  initial  move,  is  generated.  Additionally, 
memory  is  reserved  to  indicate  which  moves 
will  result  in  a  capture. 

4.  The  control  piece  array:  this  array  stores  the 
squares  that  each  piece  "controls"  as  well  as 
the  pieces  that  control  a  particular  square. 
Thus,  it  is  possible  to  determine  the  power  of 
each  piece  along  with  what  pieces  are  in  control 
of  the  specific  square  in  question. 

5.  The  change  array:  all  changes  made  at  a  node  in 
the  search  tree  are  stored  in  this  array  when 
control  advances  to  a  new  node.  The  purpose  of 
the  list  is  to  expedite  the  restoring  of  positions. 

6.-  The  pinned  pieces  list:  a  listing  of  all  pinned 

pieces  is  maintained  in  this  array. 
7.   The  en  prise  pieces  list:  a  separate  list  of  en 


prise  pieces  at  each  search  node  is  maintained. 

8.  The  Alpha  and  Beta  cut-offs  lists:  two  lists,  one 
of  the  last  eight  moves  resulting  in  alpha  refu- 
tations and  the  other  of  beta  refutations,  are 
maintained. 

9.  The  ply  3  plausibility  list:  CHESS  maintains  a 
list  of  the  best  ply  3  move  for  each  possible  ply 
2  opponent's  move  for  each  ply  1  move  investi- 
gated. 

10.  The  principal  variations  list:  each  principal 
variation  originating  in  the  tree  search  is 
stored  in  this  list. 

11.  The  position  records  list:  this  listing  of  all 
moves  since  a  recent  capture  or  pawn  move  is 
used  to  determine  whether  a  draw  should  be 
made  because  of  repetition. 

Tree  Size 

Tree  size  is  automatically  controlled  by  the 
program  so  that  decisions  will  not  exceed  a  pre- 
determined time  limit.  Conditions  that  warrant  an 
extension  of  the  tree  size  include  potential  checks, 
captures.  Pawn  promotions,  Pawns  on  the  seventh 
rank,  and  the  presence  of  en  prise  pieces. 

The  flowchart  in  Fig.  7-17  illustrates  the  pro- 
cessing that  occurs  each  time  a  new  node  is 
reached.  The  node  is  determined  to  be  either  "ter- 
minal" or  "nonterminal."  A  terminal  node  can  be 
declared  by  a  subroutine  known  as  the  gamma  al- 
gorithm, by  the  fact  that  the  node  is  past  the  tree 
length  or  by  the  fact  that  the  node  is  past  the 
minimum  ply,  but  the  board  has  no  special  features. 
All  other  nodes  are  classified  as  nonterminal. 

Nonterminal  Node  Processing 

The  One  Move  Generator  subroutine  is  the 
first  processing  done  at  a  nonterminal  node.  This 
subroutine  determines  whether  one  move  is  suffi- 
cient or  all  legal  moves  must  be  generated;  if  the 
first  move  could  cause  a  refutation,  the  program 
continues;  otherwise,  the  Move  Generator  deter- 
mines all  legal  moves.  Following  move  generation, 
a  plausibility  score  is  assigned  to  each  move,  and 
moves  are  sorted  according  to  decreasing  plausi- 
bility. The  list  is  then  resorted  by  special  routines. 
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Fig.  7-1 7.  A  flowchart  for  node  processing. 
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Plausibility  Scoring 

All  possible  moves  are  assigned  a  plausibility 
score  that  is  based  on  the  following  parameters: 

1.  Captures:  the  score  given  for  each  capture  is 
2400  points  plus  the  results  of  this  formula: 

additional  points=(point  value  of  captures- 
piece  point  value  of  capturing  piece)/10 

where  the  points  for  the  chess  pieces  are  Pawn 
=  600,  Knight  =  Bishop  =  1800,  Rook  =3000, 
Queen  =  5400,  King  =  300,000. 

2.  Castling:  the  point  value  for  castling  is  10,000 
points. 

3.  Randomizer:  this  routine  adds  a  random 
number  of  points  to  each  move  such  that  no 
piece  will  have  excessive  moves  on  the  moves 
list.  Up  to  ten  points  may  be  added. 

4.  Advance:  any  move  which  retreats  a  Queen, 
Knight,  or  Bishop  receives  a  penalty  of  twenty 
points. 

5.  Pawn  attack:  any  move  which  places  a  Queen, 
Rook,  Bishop,  or  Knight  where  it  can  be  cap- 
tured on  the  next  move  by  a  Pawn  receives  a 
penalty  of  200  point. 

6.  Pawn  scoring:  a  Pawn  move  past  the  fourth 
rank  is  awarded  300  additional  points,  and  a 
move  past  the  sixth  rank  is  given  1000  addi- 
tional points.  A  move  of  the  King's  or  Queen's 
Pawn  is  awarded  21  additional  points,  and  a 
move  of  the  Bishop's  Pawn  is  given  15  addi- 
tional points. 

7.  Rook  scoring:  moves  for  Rooks  past  the  sixth 
rank  are  given  200  additional  points.  Moves  for 
Rooks  on  the  first  rank  to  another  square  on  the 
first  rank  that  has  no  Pawns  on  the  second  and 
third  ranks  is  awarded  40  points. 

8.  Refutation  moves:  any  move  on  either  the 
alpha  or  beta  refutation  lists  is  given  an  addi- 
tional 300  points. 

9.  En  prise  moves:  any  move  that  defends  an  en 
prise  piece  is  given  a  bonus  of  300  points. 
Moves  oft  en  prise  pieces  are  awarded  300 
points  if  the  move  is  to  a  safe  square  and  are 
penalized  20  points  if  the  move  is  an  unsafe 
square. 


10.  Attack  moves:  if  a  move  will  place  a  piece 
where  it  can  attack  more  pieces  than  before  the 
move,  additional  points  are  awarded  according 
to  the  pieces  which  may  be  attacked  (and  other 
factors). 

Reordering  the  Moves  List 

Following  the  plausibility  score  analysis,  spe- 
cial reordering  routines  are  used  to  generate  a  final 
listing  of  moves  in  the  order  of  their  advantages. 
The  three  reordering  routines  used  by  OSTRICH 
are  as  follows: 

1.  Capture  reordering:  the  plausibility  analysis 
arbitrarily  places  capturing  moves  at  the  top  of 
the  moves  list;  however,  a  capture  is  usually 
not  the  best  move  in  most  positions.  This 
routine  generally  places  captures  by  non- 
Pawns  on  the  opponent's  side  behind  the  non- 
capturing  moves  next  on  the  list.  No  capture  is 
moved  to  a  point  on  the  list  where  it  will  not  be 
considered  in  the  final  analysis,  however. 
Captures  of  pieces  moved  at  the  last  ply  are 
placed  at  the  top  of  other  captures,  except  at 
ply  one,  where  this  is  done  only  under  the 
condition  that  the  following  move  will  be  a 
recapture. 

2.  Special  reordering:  a  move  called  "Second 
Best"  is  generated  after  each  move;  it  is  the 
second  to  the  last  move  that  the  search 
evaluated  as  it  searched  the  first  ply  move  list. 
This  move  is  matched  with  the  same  move  on 
the  moves  list,  if  it  is  there.  Any  such  move  is 
placed  on  the  top  of  the  moves  list,  if  it  is  legal. 

3.  Midsearch  reordering:  a  midsearch  reorder  is 
done  to  the  ply  one  moves  list  when  the  third 
move  at  ply  one  is  to  be  considered.  A  match  is 
sought  between  the  moves  remaining  on  the 
ply  one  list,  and  the  move  at  the  third  ply  is 
retrieved  from  the  present  principal  continua- 
tion. If  a  match  is  found,  that  move  is  placed  at 
the  top  of  the  moves  list;  if  no  match  is  found, 
matches  are  sought  between  this  move  and  the 
most  recent  refutations. 

Processing  at  Terminal  Nodes 

A  scoring  routine  is  applied  to  each  terminal 
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node,  once  it  has  been  determined  to  be  a  terminal 
node.  The  seventeen  scoring  functions  are  as  fol- 
lows: 


1.  Board  material:  credit  is  awarded  for  the 
number  and  types  of  pieces  that  will  remain  on 
the  board.  The  values  given  to  each  piece  are 
Pawn  =  1,  Bishop  =  Knight  =  3,  Rook  =  5, 
Queen  =  9  King  =  300. 

2.  Material  ratio:  the  material  ratio  routine 
scores  favorably  for  trading  pieces  when  you 
are  ahead  in  material  and  penalizes  for  trading 
when  you  are  behind:  100  points  are  awarded 
to  the  side  that  is  ahead. 

3.  Castling:  a  King  side  castling  is  given  600 
points,  while  a  Queen  side  castling  is  given  300 
points. 

4.  Board  control:  points  are  awarded  in  the  fol- 
lowing manner  for  control  (ability  to  capture)  of 
certain  squares  on  the  board:  12  points  for  each 
of  the  four  center  squares,  7  points  for  control 
of  any  square  in  the  ring  surrounding  the  four 
center  squares,  and  12  points  for  squares  sur- 
rounding the  opponent's  King. 

5.  Tempo:  200  points  are  deducted  from  the  score 
of  either  side  for  wasting  time  in  one  of  the 
following  ways:  moving  one  piece  twice  in  the 
opening,  moving  King  or  Rook  prior  to  cast- 
ling, moving  a  piece  to  its  last  previous  posi- 
tion, using  more  than  one  move  to  move  a  piece 
to  a  position  it  could  have  reached  in  one  move. 

6.  Opening  Queen  moves:  moves  of  the  Queen 
before  the  eighth  move  are  penalized  400 
points. 

7.  Blocking  unadvanced  Pawns:  470  points  are 
deducted  for  moves  that  block  unadvanced 
King  or  Queen  Pawns. 

8.  Minor  piece  development:  a  penalty  of  140 
points  is  given  for  each  unmoved  center  Pawn, 
Bishop,  or  Knight. 

9.  Center  Pawns:  an  additional  50  points  are 
awarded  for  all  Pawns  on  K4  or  Q4;  70  points 
are  awarded  for  a  Pawn  on  K5  or  Q5. 

10.  Pawn  structure:  Isolated  pawns  are  penalized 
400  points;  doubled  Pawns  are  penalized  20 


points;    advancing  Pawns  are  awarded   10 
points. 

11.  Passed  Pawns:  passed  Pawns  on  the  seventh 
rank  are  worth  700  point,  on  the  sixth  400 
points,  on  the  fifth  340  points,  on  the  fourth  40 
points,  on  the  third  100  points,  on  the  second 
40  points.  If  Pawns  and  Kings  are  the  only 
pieces  left,  the  point  values  are  doubled. 

12.  Kind  defense:  if  there  are  more  non-Pawn  op- 
posing pieces  in  the  Kings  sector  than  de- 
fending pieces,  a  penalty  of  75  points  is  as- 
sessed. 

13.  Doubled  Rooks,  Bishop  pairs:  if  the  two  rooks 
are  on  the  same  column,  150  points  are 
awarded;  if  one  side  has  two  Bishops  and  the 
other  side  does  not,  150  points  are  awarded. 

14.  Trades:  if  the  piece  that  moved  at  the  last  ply  is 
under  attack,  the  score  is  adjusted  as  follows: 
the  score  is  reduced  by  the  value  of  the  at- 
tacked piece  if  the  number  of  defenders  is  zero. 
Otherwise,  a  sequence  of  trades  is  performed 
on  the  square,  and  the  score  is  changed  based 
on  the  pieces  exchanged. 

15.  King  vs  Pawns:  if,  after  move  thirty,  the  King 
is  within  one  square  of  an  opposing  Pawn,  200 
points  are  awarded. 

16.  Knight  position:  any  Knight  on  column  9  or  7  is 
penalized  40  points. 

17.  Attacks:  ply  one  moves  that  place  an  opposing 
piece  en  prise  are  awarded  40  points. 

The  Gamma  Algorithm 

The  gamma  algorithm  was  mentioned  earlier 
during  the  discussion  concerning  how7  to  determine 
whether  a  node  is  terminal  or  nonterminal.  Al- 
though the  algorithm  is  complex,  the  logic  behind 
its  decision-making  is  that  "if  the  situation  is  be- 
coming progressively  worse  and  better  moves  are 
available,  classify  this  node  as  terminal." 

Possibilities  for  Chess-Related  Programs 

1.  Chess  end  game  program:  of  course,  computer 
analysis  becomes  much  simpler  at  the  end  of  a 
chess  game,  when  only  a  few  pieces  are  left. 
The  beginning  programmer  might  wish  to 
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write  a  chess  program  to  play  end  games  be- 
tween a  few  selected  pieces  only.  The  program 
would  provide  any  initial  set-up  of  pieces  be- 
fore the  game.  The  strategy  is  shown  in  Fig. 
7-18. 
2.  Chess  variations:  perhaps  computers  would  be 
able  to  compete  better  in  playing  one  of  these 


chess  variations: 

•  Marseille     game— each     player     moves    two 
pieces  in  succession. 

•  Legal  game— white  uses  eight  extra  Pawns  in- 
stead of  a  Queen. 

•  Marked  Pawn— the  first  player  to  make  a  capture 
wins  this  chess  variation. 
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Fig.  7-18.  A  mechanical  chess  playing  machine  used  the  strategy  illustrated  in  this  chart  to  win  a  chess  end  game.  The 
machine  possessed  a  white  King  and  Rook  while  the  human  opponent  possessed  only  a  King. 
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•  Chancellor— the  Knight  and  Rook  have  the  same 
combined  move  capabilities  as  each  one  has  indi- 
vidually. 

•  Grasshopper— pieces  may  leap  over  others; 
captures  are  as  usual. 

3.  Advisor:  a  computer  program  updated  with 
each  move  you  make  could  advise  you  of  situa- 
tions you  might  miss.  It  would  be  interesting  to 
compare  the  move  you  intend  to  make  with  the 
computer's  suggestion. 

4.  Check:  write  a  program  determine  whether 
black  or  white  is  in  check  given  a  particular 
board  setup. 

5.  Take  the  Queen:  write  a  program  that  can  de- 
termine whether  a  black  Rook  can  take  the 
white  Queen  in  no  more  than  four  moves  if 
neither  white  pieces  nor  any  other  black  pieces 
are  allowed  to  move  in  between  the  successive 
moves  of  the  black  Rook. 

6.  Eight  Queens:  this  chess  recreation  was  de- 
vised in  the  seventeenth  century.  The  chal- 
lenge is  to  discover  how  many  ways  it  is  possi- 
ble to  place  eight  Queens  on  a  chessboard  in 
such  a  manner  that  no  one  Queen  can  be  taken 
by  another?  There  are  92  solutions  to  the 
problem,  which  may  be  found  by  a  computer 
program  using  this  strategy:  place  a  Queen  in 
the  first  column  and  row  of  the  board  and  a 
second  Queen  in  an  uncapturable  or 
conflict-free  row  of  column  2,  and  so  on  until  a 
solution  is  generated  or  a  conflict  arises.  When 
a  conflict  arises,  backtrack  to  the  column  im- 
mediately before  and  place  the  queen  in  a  new 
conflict-free  position,  and  then  continue  on.  If 
no    other    conflict-free    position    exists, 


backtrack  to  the  next  previous  column  and 
place  that  Queen  in  a  new  conflict-free  posi- 
tion, and  so  on. 

7.  Five  Queens:  write  a  program  to  determine 
how  five  Queens  may  be  placed  on  the  board  in 
such  a  manner  that  every  square  is  dominated 
by  at  least  one  of  the  Queens. 

8.  Twelve  Knights  or  eight  Bishops:  write  a  pro- 
gram to  place  12  Knights  or  8  Bishops  on  the 
board  in  such  a  manner  that  all  other  squares 
are  dominated. 

9.  Knight's  tour:  this  program  would  find  the 
path  a  Knight  must  take  if  he  is  placed  on  any 
square,  and  in  64  moves,  he  must  land  on  each 
square  once  and  only  once.  This  problem  may 
be  solved  by  use  of  the  heuristic  strategy:  For 
any  square  x  on  the  chessboard,  let  p  (x)  (i=l, 
2,  3  .  .  .)  be  the  number  of  squares  accessible 
from  x  in  i  moves,  not  counting  squares  already 
visited.  The  knight  always  moves  to  a  square  x 
for  which  p  (x)  exist,  choose  an  x  such  that  p2 
(x)  is  also  as  small  as  possible. 

ADDITIONAL  GAME  PROGRAMS 

Below  are  three  listings  that  you  can  type  into 
your  computer  and  use. 

Card  Shuffler 

You  can  incorporate  the  handy  shuffling 
routine  in  Listing  7-5  into  computer  card  games. 
The  cards  of  the  deck  are  numbered  from  1  to  52  and 
are  stored  in  the  array  M(x).  A  separate  subroutine 
would  convert  these  numbers  into  corresponding 
spot  or  face  cards  and  suits. 


Listing  7-5.  The  Card  Shuffling  Routine 

100  REM  CARD  SHUFFLING  ROUTINE 

110  DIM  M(53) 

120  N=52:FOR  1=1  TO  N 

130  M(I)=I:NEXT  I 

140  FOR  1=1  TO  N-l 

150  R=(N+1-I)*RND(0) 

160  R=INT(R)+1 

170  T=M(R) 

180  M(R)=M(I) 

190  M(I)=T 

200  NEXT  I 
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William  Tell  Game  solution  is  encoded  so  that  typing  in  the  program 

The  program  in  Listing  7-6  presents  a  puzzle  does  not  reveal  the  secret, 
that  will  challenge  those  of  all  ages.  The  program 

describes  "William  Tell/'  and  it's  your  job  to  de-  Personality  Test 

termine  what  else  characterizes  William  Tell.  The  The  program  in  Listing  7-7  will  be  interesting 


Listing  7-6:  The  William  Tell  Program 

100  PRINTCHR$(147);TAB(55)"WILLIAM  TELL" 

140  PRINT 

170  DIM  A$(20),B$(20) 

190  PRINT  "WILLIAM  TELL  IS  A  GAME  OF  LOGIC  IN  WHICH  THE  COMPUTER" 

200  PRINT  "GIVES  YOU  EXAMPLES  OF  WHAT  WILLIAM  TELL  IS,  AND  YOU  MUST" 

210  PRINT"GUESS  THE  SECRET  BEHIND  THE  WORDS  THAT  CHARACTERIZE" 

220  PRINT  "WILLIAM  TELL.   THE  COMPUTER  WILL  PROVIDE  YOU  WITH  EXAMPLES" 

230  PRINT  "AS  A  HINT.   YOU  MUST  THEN  GUESS  WHAT  WILLIAM  TELL  IS  AND" 

240  PRINT  "IS  NOT  BY  TYPING  IN  NEW  WORDS  YOU  THINK  MAY  CHARACTERIZE" 

250  PRINT  "WILLIAM  TELL.   IF  YOU  HAVEN'T  FIGURED  IT  OUT  AFTER  20" 

260  PRINT  "TRIES,  YOU  CAN  ASK  FOR  THE  ANSWER  OR  TRY  THE  SAME  SET" 

270  PRINT  "AGAIN.   HERE  IS  YOUR  FIRST  EXAMPLE  AND  CHANCE  TO  GUESS:" 

280  PRINT 

290  FOR  X=l  TO  20 

300  READ  A$(X),B$(X) 

310  NEXT 

330  REM  THIS  LIST  OF  EXAMPLES  MAY  BE  EXPANDED 

340  DATA  BRILLIANCE,  GLORY,  GLASSES,  SPECTACLES,  MELLOW,  INTOXICATED 

350  DATA  DULL,  STUPID,  COMMODITY,  OBJECT,  SHEEN , BRIGHT, UNDRESSED 

360  DATA  NUDE, MISSION, OBJECTIVE, SPEECH, PROSE, PASSIVE, INERT 

370  DATA  SUGGESTION,  ADVICE, SYMMETRICAL, REGULAR , JITTERY , NERVOUS 

380  DATA  IMPRESSIVE, MAGNIFICENT, ERRONEOUS, FAULTY, FEEBLE, LAME 

390  DATA  CALLOUS,  INSENSITIVE,  SOOTHING,  SERENE,  SHALLOW 

400  DATA  SUPERFICIAL, NAMELESS, ANONYMOUS 

410  FOR  Y=l  TO  20 

420  PRINT  "WILLIAM  TELL  IS  ";A$(Y);M  BUT  NOT  ";B$(Y) 

430  INPUT"WILLIAM  TELL  IS...";C$ 

440  GOSUB  730 

470  IF  F=l  THEN  560 

480  INPUT"BUT,  WILLIAM  TELL  IS  NOT...";C$ 

490  GOSUB  730 

500  IF  F=l  THEN  PRINT  "WILLIAM  TELL  IS  ";C$;"M!" 

510  GOSUB  790 

530  PRINT 

540  NEXT  Y 

550  GOTO  640 

560  INPUT  "BUT, WILLIAM  TELL  IS  NOT";C$ 

570  GOSUB  730 

580  IF  (F=1)AND(G=1)  THEN  PRINT  "WHOOPS,  I  THOUGHT  YOU  GOT  IT" 

585  IF  (F=1)AND(G=1)  THEN  PRINT  "LET'S  TRY  SOME  MORE. . . " :G=0:PRINT 

590  IF  (F=0)  AND  (G=l)  THEN  630 

600  IF  (F=0)  THEN  PRINT: PRINT"BY  GOLLY, MAYBE  YOU  HAVE  IT!" 

605  IF  (F=0)  THEN  PRINT"LET'S  TRY  ONCE  MORE. . . " :PRINT:G=1 

610  IF  F=l  THEN  PRINT  "WILLIAM  TELL  IS  ";C$; "!!!!"  :PRINT 

620  GOTO  540 

630  PRINT  "RIGHT! ! ! ! !" 

640  PRINT  "WOULD  YOU  LIKE  TO  TRY  AGAIN  (A)" 

645  INPUT"  OR  HEAR  THE  ANSWER  (H)";A$ 
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650  IF  A$="H"  THEN  670 

655  IF  A$="A"  THEN  370 

657  GOTO  640 

660  REM  ENCODED  ANSWER  FOR  WILLIAM  TELL 

670  PRINT  "THE  SECRET  IS:" 

680  A$=MUGJJ?K/RCJJ/GQ/?LW/UMPB/AMLR?GLGLE/RUM//AMLQCASRGTC*/GBCLRGA?J/J 

690  FOR  X=l  TO  LEN(A$) 

700  IF  MID$(A$,X,1)=!7"  THEN  PRINT  "  "; 

705  IF  MID$(A$,X,1)<>"/"  THEN  PRINT  CHR$( ASC(MID$(A$ ,X , 1) )+2) ; 

710  NEXT  X 

720  END 

730  F=0:REM  ANSWER  EVALUATION 

750  FOR  X=l  TO  LEN(C$) 

760  IF  MID$(C$,X,1)=MID$(C$,X+1,1)  THEN  F=l 

765  IF  MID$(C$,X,l)OMID$(C$,X+l,l)  THEN  NEXT  X 

770  RETURN 

780  REM  WRONG  ANSWER  CHOICES 

790  ON  INT(RND(-TI)*5+1)  GOTO  800,810,820,830,840 

800  PRINT  "NOPE... GIVE  IT  ANOTHER  TRY:":RETURN 

810  PRINT  "SORRY,  NOT  EVEN  CLOSE." : RETURN 

820  PRINT  "THAT  DOES  NOT  COMPUTE  (IT'S  WRONG" : RETURN 

830  PRINT  "YOU'RE  STILL  COLD. . .TRY  AGAIN:" :RETURN 

840  PRINT"THAT  ONE  ALMOST  BLEW  MY  CIRCUITS. . .HERE'S  ANPOTHER  HINT: " :RETURN 


Listing  7-7:  The  Personality  Test  Program 

10  PRINTCHR$(147)TAB(50)"PERS0NALITY  TEST":PRINT 

20  PRINT"THE  FOLLOWING  PERSONALITY  TEST  IS  JUST" 

25  PRINT"FOR  FUN— DON'T  TAKE  IT  TOO  SERIOUSLY.   " 

30  PRINT"HOWEVER,  IT  MIGHT  REVEAL  SOME  GENERAL" 

35  PRINT"CHARACTERISTICS!" 

40  PRINT 

50  PRINT"INSTRUCTIONS:":PRINT"THREE  VERSES  WILL  BE  PRINTED.  FOLLOWING" 

60  PRINT"EACH  VERSE  WILL  BE  A  LIST  OF  " 

65  PRINT"INTERPRETATIONS.   INPUT  THE  CORRESPOND-" 

70  PRINT"ING  NUMBER  FOR  THE  INTERPRETATION  YOU" 

75  PRINT"THINK  IS  THE  BEST.  " 

80  INPUT"PRESS  RETURN  WHEN  READY" ;A$ 

90  PRINTCHR$(147):REM  CLEAR  SCREEN 

100  PRINT"A  BOOK  OF  VERSES  UNDERNEATH  THE  BOUGH," 

110  PRINT"A  JUG  OF  WINE,  A  LOAF  OF  BREAD, AND  THOU" 

120  PRINT"BESIDE  ME  SINGING  IN  THE  WILDERNESS—" 

130  PRINT"OH,  WILDERNESS  WERE  PARADISE  ENOW!" 

140  PRINT 

150  PRINT" 1)  HAPPINESS  OR  CONTENTMENT  CAN  BE  " 

155  PRINT"   FOUND  WITHOUT  MUCH  PLANNING" 

160  PRINT"2)  HAPPINESS  IS  IN  ACCEPTING  AND  ENJOY-" 

165  PRINT"   ING  SIMPLE  THINGS" 

170  PRINT"3)  HAPPINESS  IS  ALWAYS  PRESENT  IF  WE" 

175  PRINT"   TAKE  THE  TIME  TO  LOOK" 

180  PRINT"4)  IF  YOU  SET  YOUR  MIND  TO  IT,  HAPPI-" 

185  PRINT"   NESS  CAN  BE  FOUND" 

190  PRINT"5)  HAPPINESS  IS  WHERE  WE  FIND  IT" 

200  INPUT  XI 

210  PRINT  CHR$(147) 

220  PRINT"THERE  IS  A  TIDE  IN  THE  AFFAIRS  OF  MEN" 

230  PRINT"WHICH,  TAKEN  AT  THE  FLOOD,  LEADS  ON  TO" 
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400  PRINT"1) 
405  PRINT" 
410  PRINT"2) 
415  PRINT" 


240  PRINT"F0RTUNE;" 

250  PRINT"0MITTED,  ALL  THE  VOYAGE  OF  THEIR  LIFE" 

260  PRINT"IS  BOUND  IN  SHALLOWS  AND  IN  MISERIES." 

270  PRINT 

280  PRINT"  1)  MAKE  THE  MOST  OF  YOUR  CHANCE  WHEN  " 

285  PRINT"   YOU  GET  IT" 

290  PRINT"2)  IN  MANY  CASES  OF  FAILURE,  PEOPLE  " 

295  PRINT"   WERE  AFFECTED  BY  CIRCUMSTANCES  OVER" 

300  PRINT"   WHICH  THEY  HAD  NO  CONTROL." 

310  PRINT"3)  ONE  WHO  PLANS  WELL  WILL  SURVIVE  WELL" 

315  PRINT"   UNDER  THE  LAWS  OF  NATURE" 

320  PRINT"4)  LIFE  IS  SUCH  THAT  IT  PAYS  TO  WATCH" 

325  PRINT"   WHAT  YOU  DO  BEFORE  YOU  RUN  INTO" 

330  PRINT"   INTO  TROUBLE" 

340  PRINT"5)  ONE  SHOULD  BE  ON  THE  WATCH  FOR  0P-" 

345  PRINT"   PORTUNITY  TO  KNOCK,  OTHERWISE  HE  " 

350  PRINT"   WILL  MISS  OUT  ON  GOING  PLACES." 

360  INPUT  X2 

370  PRINTCHR$(147) 

380  PRINT"NO  MAN  IS  AN  ISLAND,  ENTIRE  OF  ITSELF." 

390  PRINT 

EVERYONE  SHOULD  CONSIDER  THE  NEEDS" 

AND  WANTS  OF  OTHERS" 

USE  OTHER'S  INFLUENCE  TO  HELP  YOU" 

PLAN  YOUR  LIFE" 
420  PRINT"3)  ONE  WHO  ACTS  WITHOUT  REGARD  FOR" 
425  PRINT"   OTHERS  DOES  NOT  REALIZE  HE  IS  A  " 
430  PRINT"   SOCIAL  ANIMAL" 

440  PRINT"4)  TO  GET  WHERE  YOU  WANT  TO  BE  IN  LIFE" 
445  PRINT"  YOU  MUST  REALIZE  THE  NEED  FOR  HELP  " 
450  PRINT"   FROM  OTHERS" 

460  PRINT"5)  ALTHOUGH  I  AM  THE  CAPTAIN  OF  MY" 
465  PRINT"   SOUL,  I  MUST  MAKE  MY  WAY  IN  LIFE" 
470  PRINT"   AMONG  MANY  OTHER  CAPTAINS" 
480  INPUT  X3 
490  PRINTCHR$(147) 

500  PRINT"THE  TEST  INDICATES  THAT  YOU  POSESS  THESE  TRAITS:" 
510  IF  Xl=l  THEN  PRINT"IRRESPONSIBLE":GOTO  520 
512  IF  Xl=2  THEN  PRINT  "CONVENTIONAL  AND  MORALISTIC" : GOTO  520 
514  IF  Xl=3  THEN  PRINT  "MORALISTIC": GOTO  520 
516  IF  Xl=4  THEN  PRINT"FORMAL":GOTO  520 
518  PRINT"PRACTICAL" 

520  IF  X2=l  THEN  PRINT"PRACTICAL  AND  LOGICAL": GOTO  530 
IF  X2=2  THEN  PRINT"MORALISTIC":GOTO  530 
IF  X2=3  THEN  PRINT"CONVENTIONAL" :GOTO  530 
526  IF  X2=4  THEN  PRINT"HUMOROUS  AND  SENSIBLE": GOTO  530 
528  PRINT"EGO-CENTRIC" 

530  IF  X3=l  THEN  PRINT"CONVENTIONAL" :GOTO  540 
532  IF  X3=2  THEN  PRINT"PRACTICAL  AND  LOGICAL": GOTO  540 
534  IF  X3=3  THEN  PRINT"OBJECTIVE" :GOTO  540 
536  IF  X3=4  THEN  PRINT"EGO-CENTRIC":GOTO  540 
538  PRINT"MORALISTIC" 

540  PRINT"IF  THE  SAME  TRAIT  IS  LISTED  TWICE  THEN" 
545  PRINT"IT  IS  ALL  THE" 
550  PRINT"MORE  INDICATIVE  OF  YOU." 
560  END 


522 
524 


198 


to  guests.  A  series  of  verses  is  printed,  and  the  psychologist  is  near;  computers  have  already  been 

player  is  asked  to  provide  an  interpretation.  Al-  used  to  question  patients  and  provide  an  overall 

though  this  program  is  based  upon  psychological  psychological  analysis  on  the  basis  of  standard 

research,  don't  take  it  too  seriously.  However,  it  is  psychological  tests, 
interesting  to  note  that  the  day  of  the  computer 
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Chapter  8 


Control  and  Peripheral  Applications 


The  potentials  for  computer  control  and  monitoring 
of  the  home  are  endless;  only  a  few  of  the  possible 
applications  have  been  put  into  practice  with  the 
incorporation  of  microprocessors  in  household 
appliances.  Several  industry  demonstration  homes 
have  been  built  to  exhibit  microprocessor  control  of 
the  home.  The  following  suggestions  have  been 
included  in  these  homes  or  have  been  suggested  by 
leading  industry  forecasters  and  futurists: 

•  Climate  control  is  just  one  of  the  many  functions 
provided  by  the  home  computer  system.  The  rate 
of  temperature  change  and  humidity  is  noted,  and 
the  air  conditioner  or  heater  is  turned  off  before 
the  house  is  at  a  preset  level;  the  temperature 
will  "coast"  to  the  desired  level.  The  system  also 
times  the  thermostat.  In  winter  it  turns  down  the 
temperature  at  night,  turns  it  up  again  in  the 
morning,  and  then  turns  it  back  down  while  you 
go  off  to  work;  in  the  summer  it  controls  the  air 
conditioner  in  the  same  manner.  To  conserve 
energy,  the  hot  water  heater  is  also  turned  down 
during  certain  hours  when  hot  water  isn't  needed. 


•  A  vocal  input  interface  to  the  home  computer  is 
continuously  active,  waiting  for  a  command  by 
one  of  the  occupants.  All  appliances  and  lights 
controlled  by  the  system  can  be  switched  on  and 
off  by  voice  command  or  can  be  programmed  to 
start  and  stop  at  selected  times. 

•  An  intelligent  alarm  system  will  turn  off  all  elec- 
tricity and  gas  and  call  the  fire  department  in  case 
of  fire.  A  burglar  detection  system  calls  the 
police  if  an  intruder  is  detected  ultrasonically  or 
by  other  sensors. 

•  Interfaces  to  stereo,  televisions,  and  telephones 
are  also  interesting.  The  telephone  controller 
acts  as  a  phone  message  recorder  with  additional 
features.  If  a  message  is  taken,  the  unit  can  be 
instructed  to  call  someone  at  another  number  and 
deliver  the  message.  A  telephone  call  to  the 
machine  itself  can  allow  you  to  change  the  re- 
corded message,  play  back  messages,  or  control 
any  of  the  devices  connected  with  the  home  com- 
puter. A  telephone  file  of  commonly  used  num- 
bers is  stored  in  the  computer.  Additionally,  you 
can  dial  numbers  by  simply  calling  them  out  vo- 
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cally;  if  a  busy  signal  is  encountered  the  com- 
puter continually  redials  the  number  until  the  line 
is  free. 

•  The  stereo  interface  transforms  an  ordinary 
stereo  into  a  ''jukebox"  from  which  recordings 
may  be  selected  and  played  at  the  touch  of  a 
button.  A  special  device  can  monitor  radio  broad- 
casts and  record  all  music;  commercials  and 
news  are  not  recorded  (voice  patterns  can  be 
distinguished  from  music).  You  can  preprogram 
the  volume  level  and  the  type  of  music  you  want 
to  have  recorded  for  special  purposes  such  as 
musical  interludes  and  background  music  for 
dinner.  A  given  song  can  be  played  a  selected 
number  of  times,  or  the  computer  may  be  pro- 
grammed to  skip  to  the  next  song  on  a  record  or 
cassette. 

•  The  television  interface  will  turn  on  the  set  at 
selected  times  or  record  shows  on  video  tape;  a 
directional  antenna  or  satellite  dish  is  automati- 
cally turned  for  the  best  reception. 

•  Even  the  bar  is  automated.  Drinks  of  your  choice 
are  mixed  automatically  (bottles  of  ingredients 
are  connected  by  hoses  to  the  special  machine). 

•  You  can  use  a  voice  synthesizer  to  audibly  awake 
you  in  the  morning  with  "Good  Morning  Mr.  T. 
It's  8  A.M.  ,"  and  then  summarize  your  itinerary 
for  the  day. 

•  An  automatic  system  can  release  fresh  food  and 
water  for  pets  left  at  home  for  a  long  period,  can 
sense  when  the  animal  has  not  eaten  the  food,  and 
can  notify  the  veterinarian  to  check  the  home. 

Some  other  applications  currently  being  used 
by  hobbyists  include  the  following: 

•  Voice  or  sound  synthesizers  are  incorporated 
into  games  to  provide  dialogue  or  sound  effects. 

•  Voice  input  computers  are  used  for  recording 
information  called  out  by  an  operator.  One  hob- 
byist uses  such  a  system  to  make  simple  calcula- 
tions in  his  home  workshop  while  his  hands  are 
full.  Although  such  systems  are  usually  limited  to 
a  vocabulary  of  about  thirty  words,  some  hob- 
byists have  managed  to  develop  automatic 
"dictation-taking"  typewriters  for  limited  pur- 


poses (a  word  capacity  of  100  is  considered 
maximum). 

•  A  hobbyist  has  used  his  small  computer  to  re- 
place over  7000  mechanical  relays  necessary  to 
control  a  pipe  organ  in  his  home.  Similarly,  com- 
puters could  be  used  to  light  the  keys  on  an  organ 
to  help  you  learn  to  play  a  song.  Although  a 
commercial  piano  player  has  been  developed  to 
digitally  record  music  played  and  play  it  back 
later,  the  cost  is  high.  If  you  were  to  implement 
such  a  system  with  your  computer,  additional 
features  could  be  added;  speed,  sustain,  attack, 
and  other  features  could  all  be  varied. 

•  One  hobbyist  is  using  a  microprocessor  to  create 
intelligent  test  equipment  that  can  automatically 
perform  a  set  of  test  routines  on  a  given  circuit. 
This  is  an  interesting  application  for  amateur 
radio  operators.  A  calculating  oscilloscope  is  able 
to  compute  exact  items  for  rises,  perform  inte- 
grals, and  differentials,  compute  peak  areas, 
RMS  values,  and  peak  to  peak  distances,  and  do 
n-point  averaging;  all  data  can  be  stored. 

•  With  the  addition  of  silver  contacts  and  a  small 
amplifier,  your  computer  could  serve  as  a 
biofeedback  monitor  or  lie  detector.  Galvanic 
skin  resistance,  temperature,  or  heartbeat  could 
all  be  measured  with  the  use  of  the  proper  in- 
struments. This  information  could  be  sent 
through  a  joystick  port  or  other  J/D  port  and 
analyzed  or  displayed  by  the  computer.  An  article 
describing  the  construction  and  operation  of  a 
computer  biofeedback  monitor  appeared  in  80 
Microcomputing,  October  1983,  pp.  176-192. 

The  capabilities  of  a  computer  allow  sophisti- 
cated analysis  and  conversion  of  waveforms  not 
obtainable  with  standard  biofeedback  equipment. 
An  assembly  language  program  could  be  written  to 
convert  alpha  brain  wave  signals,  which  are  in  the 
range  of  8-12  Hz,  to  audible  sound  by  raising  all  the 
frequency  components  of  the  brain  wave  signal  to 
the  audible  range  while  preserving  the  ratios  be- 
tween frequencies.  Such  a  program  could  be  used 
for  a  variety  of  unique  applications— for  example 
for  converting  your  voice  from  a  very  deep  level  to  a 
"Mickey  Mouse"  level  or  for  dealing  with  any  situ- 
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ation  requiring  the  conversion  of  analogue  signals. 
You  can  envision  future  digital  music  players  that 
have  the  added  capability  of  altering  songs  through 
the  use  of  hardwired  computer  circuits. 

•  A  New  Hampshire  resident  uses  his  home  com- 
puter to  control  his  wood  stove ;  he  reports  a  10  to 
30  percent  improvement  in  efficiency. 

•  A  digital/audio  file  in  which  a  standard  cassette 
interface  is  used  to  record  digital  information 
between  songs  (audio)  could  be  used  to  index 
songs,  prompt  a  vocal  announcement  by  a  voice 
synthesizer,  or  control  volumes,  speakers, 
times,  or  mixing. 

•  Hobbyists  have  connected  computers  to  exercise 
equipment,  such  as  jogging  pads  or  exercise 
bikes,  to  keep  track  of  energy  expended,  speed, 
or  time.  These  special  input  devices  could  also  be 
used  as  controllers  for  special  video  games. 

•  Special  software  and  hardware  configurations 
could  permit  two  or  more  opposing  players  to  use 
separate  but  interconnected  computers  in  such 
a  manner  that  they  cannot  see  each  other's 
gamefield.  Games  of  the  type  (multiplayer  games) 
are  gaining  in  popularity  on  computer  networks. 

•  Chess  fanatics  who  also  happen  to  be  gadget 
fanatics  would  take  delight  in  a  computer- 
interfaced  chessboard  capable  of  sensing  the 
movement  of  pieces.  A  robotic  arm,  of  course, 
would  move  pieces  for  the  computer. 

•  Personal  computers  can  be  used  to  generate  ti- 
tles for  home  video  or  film  movies  that  can  in- 
volve animated  color  graphics.  Titles  for  slide 
shows  could  also  be  made  by  photographing  the 
screen. 

•  Along  similar  lines,  your  computer  could  flash 
subliminal  messages  over  television  programs 
for  behavior  modification.  These  would  last  1/30 
of  a  second  and  assail  your  subconscious  with 
messages  to  help  you  control  your  weight,  deal 
with  stress,  smoking,  or  alcoholism,  or  become 
motivated  toward  success.  Messages  such  as  "I 
exercise"  and  "I  am  successful"  could  be  re- 
peated every  minute. 

•  Radio  scanner  buffs  can  interface  their  computer 


to  a  scanner  via  CompuScan™,  a  Bearcat  product, 
allowing  them  to  monitor  up  to  200  channels.  The 
computer  can  display  the  frequency  and  the  de- 
scription of  the  channel  received  on  a  video 
monitor. 
•  Weather  sensors  such  as  electronic  anemome- 
ters, thermometers  and  barometers  can  be  in- 
terfaced with  a  computer  to  provide  automatic 
weather  monitoring. 

HOUSEHOLD  CONTROL  DEVICES 

The  interfaces  that  allow  a  personal  computer 
to  help  you  out  around  the  house  are  now  commer- 
cially available  from  the  firms  listed  below.  For 
those  with  a  hardware  bent,  schematics  for  a  simple 
control  latch  system  and  A/D  converter  are  in- 
cluded at  the  end  of  this  chapter. 

The  firms  have  been  divided  into  two  groups, 
depending  upon  the  type  of  product  they  offer: 
those  listed  under  "Personal-Computer  Systems" 
offer  products  that  are  designed  to  work  with  one  or 
more  popular  brands  of  personal  computers;  those 
listed  under  "Dedicated  Systems"  offer  products 
that  are  made  specifically  for  home  control  applica- 
tions but  can  be  interfaced  to  computers  by  elec- 
tronic geniuses. 

Personal  Computer  Systems 

Circuit  Science,  4  Townsend  West,  Nashua, 
NH  03063;  (603)  880-4066.  Circuit  Science  man- 
ufactures the  CSI-1200,  a  controller  interface  that 
plugs  into  an  RS-232  port.  This  system  eliminates 
the  BSR  control  box,  but  uses  the  BSR  remote 
modules  for  each  appliance  controlled. 

Compu-Home  Systems,  3333  East  Florida 
Ave.,  Denver,  CO  80210;  (303)  777-6600.  This 
firm  manufactures  the  Tomorrowhouse  system  for 
the  Apple  II,  which  controls  lights,  appliances, 
solar-heating  systems,  sprinklers,  hot  tubs,  indoor 
heat,  and  air-conditioning.  It  guards  against  bur- 
glars and  reminds  you  of  appointments  and  impor- 
tant dates. 

Cyberlynx  Computer  Products,  4828 
Sterling  Dr.,  Boulder,  CO  80301  (303)  444-7733. 
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Cyberlynx  offers  the  Smarthome  I  system  for  con- 
nection to  your  Apple  RS-232  port.  It  can  be  at- 
tached to  an  infrared  detector  to  sense  heat  or 
movement  in  a  room  and  cause  lights  and  appliances 
to  turn  on  and  off  to  scare  off  an  intruder.  The 
system  is  also  configured  to  control  appliances  for 
convenience  and  energy  saving. 

HyperTek,  P.O.  Box  137,  Route  22  East, 
Salem  Industrial  Park,  Whitehouse,  NJ  08888; 
(201)  874-4773.  HyperTek  manufactures  the 
HomeBrain,  a  dedicated  microprocessor  for  home 
control  that  uses  sensor  for  heat,  temperature,  and 
motion.  It  uses  Leviton  wireless  controllers  and 
hardwired  relays  to  integrate  and  schedule  many 
home  appliances.  It  can  be  connected  with  any  per- 
sonal computer  via  an  RS-232  port. 

Intelectron,  1275  A  St.,  Hayward,  CA 
94543;  (415)  581-4490.  This  firm  offers  The  Con- 
trol Center,  a  system  operating  on  the  same  princi- 
ple as  the  BSR  system. 

Infield  Software,  2422  Alvin  St.,  Suite  100, 
Mountain  View,  CA  94043.  Infield  sells  the  Home 
Controller  for  connection  to  your  Apple  II  Plus  or 
He:  it  incorporates  the  BSR  home  control  unit  to 
run  appliances,  lights,  sprinklers,  spa,  and  so  on. 

Dedicated  Systems  and  Hardware 

Anova  Electronics,  Three  Waters  Park 
Drive,  San  Mateo,  CA  94403;  (415)  572-9686. 
Anova  sells  three  dedicated  microprocessor-based 
systems  for  home  control.  These  systems  can  be 
used  for  control  via  telephone;  and  offer  timed  or 
instant  remote  control  of  appliances,  and  protection 
against  fire,  burglary,  and  utility  failure. 

Audio  Command  Systems,  46  Merrick 
Road,  Rockville  Center,  New  York,  NY  11570; 
(516)  766-2627.  This  firm  offers  remote  control 
devices  including  low-voltage  lighting-control 
systems,  motorized  drapery  controllers,  stereo 
components,  and  robots. 

BSR,  Route  303,  Blauvelt,  NY  10913;  (914) 
358-6060.  This  firm  is  the  granddaddy  of  home 
control  systems;  their  BSR  System  is  used  by  a 
variety  of  other  manufacturers  as  a  component  of 
their  system.  The  BSR  controller  encodes  a  signal 
on  the  60-cycle  alternating  current  of  the  house's 


electrical  system,  eliminating  the  need  for  special 
wiring  throughout  the  house.  Each  controlled 
appliance  is  plugged  into  a  remote  unit  that  may  be 
turned  on  and  off  the  the  main  control  box  of  the 
BSR  system. 

Leviton,  59-25  Little  Neck  Parkway,  Little 
Neck,  NY;  11362  (212)  229-4040.  Leviton  man- 
ufactures electronic  control  devices  that  allow 
computer  control  of  lighting  and  appliances. 

Technicom  International,  23  Old  Kings 
Highway  South,  Darien,  CT  06820;  (202)  655- 
1299.  This  firm  offers  the  Energy  Control  System 
(ECS),  which  can  control  up  to  eight  devices  in  the 
home  using  BSR  remote  modules. 

The  Use  of  Home  Control  Systems 

Users  of  these  control  systems  report  applica- 
tions as  diverse  as  energy  conservation  through 
keeping  various  rooms  at  desired  temperatures  for 
different  times  of  day,  sprinkling  the  lawn  according 
to  the  amount  of  ground  moisture,  securing  doors, 
signaling  a  baby's  movements  in  a  crib,  making  and 
logging  phone  calls,  detecting  the  seepage  of  water 
into  a  basement,  opening  and  shutting  drapes  and 
starting  the  roast  by  a  phone  call  from  the  office. 

The  control  system  can  be  arranged  in  such  a 
manner  that  one  computer  controls  the  entire 
house,  or  a  network  of  computers  (one  in  each  area 
of  the  house)  can  be  interconnected  via  RS-232 
communications  channels  as  shown  in  the  diagram 
in  Fig.  8-1. 

MUSIC 

A  few  music/voice  synthesizers  are  now  on 
the  market  as  personal  computer  peripherals.  Pos- 
sible uses  for  these  include  the  following: 

•  Use  them  with  games  for  special  sound  effects. 

•  Use  them  with  a  music  composing  program  to 
generate  and  play  original  music  continuously. 

•  Use  a  music  synthesizer  as  programmable 
drummer  to  accompany  other  instruments.  Vari- 
ous drum  sounds,  speeds,  and  patterns  including 
Latin,  swing,  jazz,  waltz,  and  march,  could  be 
programmed.  The  metronome,  cymbals,  and 
other  percussion  devices  could  also  be  imitated. 

•  Use  a  voice  synthesizer  to  "sing"  the  vocals  of  a 
music  piece,  producing  a  unique  composition. 
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Fig.  8-1 .  Five  areas  of  a  computer-controlled  house.  Separate  microprocessor-based  nodes  communicate  via  an  intelligent 
communications  processor  and  an  advanced  data  link  controller. 


•  Use  the  standardized  MIDI  (Musical  Instrument 
Digital  Interface)  to  connect  a  home  computer  to 
one  or  more  electronic  musical  synthesizers  to 
play  or  digitally  record  your  compositions  on  a 
standard  electronic  keyboard.  Comprehensive 
reformation  on  MIDI  is  available  from:  MIDI 
Users  Group,  P.O.  Box  593,  Los  Altos,  CA 
94022,  phone  (408)  253-4684. 

Additional  applications  in  the  area  of  music 
include  the  following: 

•  If  you  have  a  plotter  or  a  graphic  printer  or  termi- 
nal, your  musical  compositions  or  those  of  the 
computer  could  be  displayed  in  standard  musical 
notation. 

•  Loops  of  the  proper  speed  and  duration  will  gen- 
erate a  specific  audible  frequency  on  an  AM  radio 
placed  next  to  a  CPU.  A  machine  language  or 
BASIC  program  to  make  use  of  this  effect  could 
produce  sounds  that  resemble  music. 

•  If  music  is  digitized  with  the  use  of  an  A/D  con- 
verter, it  can  be  altered  in  various  ways.  Here  are 
some  examples: 

—  selected  voices  or  instruments  could  be 
removed/added  after  an  analysis  of  fre- 
quency content. 


—The  music  could  be  played  at  any  selected 
rate  without  a  change  in  pitch,  or  could  be 
played  backwards  or  special  effect.  You 
could  transform  a  given  composition  into 
another  style  of  your  choice. 
•  Today's  color  organs,  which  produce  a  pulsating 
light  in  response  to  music,  rely  upon  analog  cir- 
cuits and  often  do  not  produce  good  results.  A 
dedicated  microprocessor  could  be  used  to  con- 
trol the  lights  instead,  resulting  in  a  more  favor- 
able response. 

AN  EXTERNAL  DEVICE 
CONTROLLER  FOR  YOUR  COMPUTER 

The  project  described  below  will  allow  the 
electronic  enthusiast  to  economically  interface  his 
or  her  computer  with  external  devices.  For  those 
not  electronically  inclined,  controlling  interface 
circuit  boards  are  commercially  available  for  under 
$200. 

The  controller  described  here  will  allow  you  to 
economically  interface  your  computer  with  virtu- 
ally any  external  electrical  device;  up  to  sixteen 
devices  (channels)  can  be  controlled  simultane- 
ously. 

This  interface   switches  on  and  off  a  small 
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amount  of  current  to  control  relays  that  in  turn  can 
control  larger  electrical  loads  (see  Fig.  8-2).  Prac- 
tically all  eight-bit  computers  can  drive  the  inter- 
face, and  a  four-bit  microprocessor  could  drive  a 
modified  interface  for  specialized  control  purposes. 

The  interface  consists  of  three  modules:  a  six- 
teen-channel  demultiplexer,  a  sixteen-bit  "mem- 
ory," and  sixteen  single  transistor  driver  amplifiers 
(see  Fig.  8-3);  the  construction  cost  should  not 
exceed  $30.  The  interface  is  designed  to  be  con- 
nected directly  with  a  parallel  output  port. 

The  four  low-order  bits  of  data  coming  from 
the  parallel  output  port  are  inputted  to  the  demul- 


tiplexer. The  demultiplexer  selects  the  appropriate 
output  pin  and  pulls  it  low  (for  example,  if  the  four 
bits  are  0000,  channel  zero  will  be  selected  and  pin 
one  pulled  low).  Since  only  sixteen  individual  sig- 
nals are  possible  with  four  bits,  sixteen  is  the 
maximum  number  of  channels  that  can  be  selected. 
Each  output  signal  switches  the  state  of  one  of  the 
sixteen  flip-flop  chips.  Thus,  the  flip-flops  act  as  a 
sixteen-bit  memory  to  maintain  the  status  of  each 
channel  continuously,  Signals  sent  to  one  flip-flop 
will  alternatively  toggle  the  corresponding  channel 
on  and  off.  The  fifth  bit  of  the  data  byte  is  first 
buffered  and  then  connected  to  the  reset  pin  of  each 
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Fig.  8-2.  Diagram  of  output  devices  that  can  be  selected  to  match  the  controlled  load. 
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Fig.  8-3.  A  schematic  diagram  of  the  control  latch  system. 

flip-flop.  Thus,  all  channels  may  be  reset  (turned 
off)  simultaneously  through  the  use  of  the  fifth  bit. 

The  software  must  output  the  signal  corre- 
sponding to  the  correct  channel  to  control  devices 
connected  to  the  interface.  However,  a  channel  can- 
not be  switched  on  and  off  continuously  by  selecting 
that  channel  over  and  over  again.  This  restriction  is 
due  to  the  fact  that  the  flip-flops  only  switch  on 
rising  edges  from  the  demultiplexer,  which  occur 
only  if  the  multiplexer  has  been  changed  to  select  a 
different  channel.  Therefore,  to  switch  a  given 
flip-flop  on  and  then  off,  follow  these  steps:  1) 
select  the  channel  with  the  proper  data  byte,  2) 


select  any  other  channel  (for  example  an  unused 
channel),  3)  wait  for  the  first  channel  to  toggle  on, 
and  4)  reselect  the  first  channel  to  turn  it  off. 

AN  A/D  CONVERTER  FOR  YOUR  COMPUTER 

The  A/D  (analog  to  digital)  converter  has 
many  applications  for  use  with  personal  computers. 
It  will  allow  you  to  interface  joysticks  or  poten- 
tiometers with  computers  for  use  during  editing, 
video  drawing,  or  game  playing.  Automation  of  test 
equipment  and  control  over  robots  or  machines  are 
among  the  many  other  possible  applications. 

The  eight-channel  interface  described  here  is 
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designed  for  use  in  converting  signals  in  the  range 
of  about  0. 1  Hz  to  100  Hz,  which  is  sufficient  for  the 
applications  listed  below  (see  Fig.  8-4).  The 
"sample-and-hold"  principle  is  used  in  the  design  to 
store  an  analog  signal  as  a  capacitor  charge  until  it  is 
processed.  The  two  power  supplies  necessary 
should  fall  between  4.5  to  6.5  V  and  12  to  15V 
respectively. 

An  assembly  language  software  description  is 
provided  below;  you  should  supply  the  op  codes  for 
your  microprocessor. 

1.  Initialize  the  pointer 

2.  Load  the  next  byte  for  output 

3.  Output  the  byte 


4.  Set  the  accumulator  equal  to  the  pointer 

5.  Select  the  next  channel  and  enable  the 
sample  and  hold  process 

6.  Turn  off  the  sample  and  hold  strobe 

7.  Turn  off  the  selected  sample  and  hold 

8.  Decrement  the  value  of  the  pointer 

9.  If  the  pointer  is  greater  than  or  equal  to 
zero,  loop  back  to  step  2;  otherwise  return 
to  the  main  program. 

As  you  can  see,  the  program  sequentially  ad- 
dresses a  channel,  outputs  the  voltage  that  is  to  be 
held,  disables  that  channel,  repeats  the  process  for 
the  other  channels,  and  then  returns  to  the  main 
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Fig.  8-4.  A  schematic  diagram  of  the  A/D  converter. 
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program.  You  could  arrange  the  program  to  act  as  an 
interrupt  handler  signaled  by  a  clock  strobe  on  an 
interrupt  line. 

A  D/A  (digital  to  analog)  converter  can  also  be 
built  or  purchased  and  used  to  produce  speech, 
music,  or  sound  effects  or  to  control  the  speed  of  a 
motor,  among  many  other  applications. 

PERSONAL  ROBOTS 

Today  the  development  of  personal  robotics  is 
at  the  stage  personal  computers  development  was 
in  the  early  1970s.  It's  a  young  field  with  great 
potential  and  much  remaining  to  be  explored.  Per- 
sonal robotics  is  discussed  here  as  a  control  appli- 
cation for  your  personal  computer,  considering  that 
many  robots  available  on  the  market  rely  upon  ex- 
ternal microcomputers  for  partial  or  complete  con- 
trol over  their  actions. 

The  state  of  the  art  personal  robot  can  loco- 
mote,  talk,  and  perhaps  perform  crude  manipulator 
functions  or  chores  such  as  vacuuming  the  house  or 
automatically  finding  the  battery  recharge  unit 
when  necessary.  Capabilities  such  as  setting  the 
table  like  a  maid,  fetching  a  beer,  or  mowing  the 
lawn  like  a  loyal  son  are  currently  out  of  the  ques- 
tion. As  of  this  date,  none  of  the  available  products 
even  come  close  to  replacing  appliances  or  off- 
spring. In  fact,  most  of  the  robots  for  sale  do  not 
have  functional  arms,  and  few  are  self-contained; 
most  communicate  with  their  host  computer  by 
means  of  a  cord  or  via  radio  transmissions.  At 
present,  personal  robots  serve  little  purpose  other 
than  entertainment  and  as  an  educational  tool. 
However,  advances  are  being  made  to  allow  more 


practical  use  of  personal  robots,  and  you  could  be 
part  of  that  frontier! 

Manufacturers  of  Personal  Robots  include: 
Androbot,  Inc. 
101  E.  Daggett  Dr. 
San  Jose,  CA  95134 

Heath  Co. 

Benton  Harbor,  MI  49022 

Microbot,  Inc. 
453-H  Ravendale  Dr. 
Mountain  View,  CA  94043 


RB  Robot  Corp. 
14618  W.  6th  Ave. ; 
Golden,  CO  80401 


Suite  201 


Robotics  International  Corp. 
2335  E.  High 
Jackson,  MI  49203 


Sandhu  Machine  Design, 
308  S.  State  St. 
Champaign,  IL  61820 


Inc. 


Technical  Micro  Systems,  Inc. 

366  Cloverdale 

Box  7227 

Ann  Arbor,  MI  48107 

Terrapin,  Inc. 
380  Green  St. 
Cambridge,  MA  02139 
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Chapter  9 


Artificial  Intelligence,  the  Future 
Personal  Computer,  and  Networking 


In  his  book  Future  Shock,  Alvin  Toffler  describes  a 
future  home  computer  system  named  OLIVER,  the 
primary  purpose  of  which  is  to  help  the  owner  deal 
with  decision  overload. 

"In  its  simplest  form,  OLIVER  would  merely 
be  a  personal  computer  programmed  to  provide  the 
individual  with  information  and  to  make  minor  deci- 
sions for  him.  At  this  level,  it  cculd  store  informa- 
tion about  his  friends'  preferences  for  Manhattans 
or  martinis,  and  data  about  traffic  routes,  the 
weather,  stock  prices,  and  so  on.  The  device  could 
be  set  to  remind  him  of  his  wife's  birthday  or  to 
order  flowers  automatically.  It  could  renew  his 
magazine  subscriptions,  pay  the  rent  on  time,  order 
razor  blades  and  the  like.  As  computerized  infor- 
mation systems  expand,  they  would  tap  into  a 
worldwide  pool  of  data  stored  in  libraries,  corpo- 
rate files,  hospitals,  retail  stores,  banks,  govern- 
ment agencies,  and  universities.  OLIVER  would 
thus  become  a  kind  of  universal  question  answerer 
for  him.  However,  some  computer  scientists  see 
much  beyond  this.  It  is  theoretically  possible  to 
construct  an  OLIVER  that  would  analyze  the  con- 


tent of  an  owner's  words,  scrutinize  his  choices, 
deduce  his  value  system,  update  its  own  program  to 
reflect  changes  in  his  values,  and  ultimately  handle 
larger  and  larger  decisions  for  him." 

FUTURISTIC  APPLICATIONS 
THAT  ARE  FEASIBLE  NOW 

Although  many  of  these  applications  will  prob- 
ably not  be  feasible  within  the  coming  decade,  some 
ideas  being  put  into  practice  include  the  following: 

Medical  monitoring.  A  specially  designed 
microcomputer  could  be  programmed  to  make 
checks  of  your  bodily  functions.  Information  such  as 
nutritional  and  caloric  intake,  pulse  rate,  blood 
pressure,  and  weight  loss  or  gain  could  be  entered 
into  a  program  especially  tailored  for  your 
metabolism.  Specific  conditions  that  warrant  a  visit 
to  the  doctor  could  be  computed  and  outputted. 

With  a  telephone  modem,  the  computer  could 
transmit  such  information  to  a  larger  data  bank  for 
processing.  Additionally,  answers  to  common 
medical  questions  could  be  provided  by  the  data 
bank. 
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Information  research.  The  facilities  to  tap 
computerized  information  banks  (for  example,  the 
information  banks  of  the  New  York  Times  and  the 
World  Trade  Center)  are  already  available  via  tele- 
phone modems  connected  to  such  service  com- 
panies as  The  Source™.  Such  services  are  espe- 
cially useful  to  businessmen,  authors,  and 
educators  who  need  to  locate  specialized  informa- 
tion. In  addition,  a  home  computer  interfaced  to  a 
standard  modem  could  tap  the  Library  of  Con- 
gress's computerized  card  catalog  as  well  as 
numerous  other  data  banks. 

Personalized  news  service.  A  home  com- 
puter on-line  with  a  news  service  could  select  news 
items  by  category  and  store  them  for  review  later 
by  the  home  owner.  The  United  Press  International 
wire  service  provides  all  major  national  and  world 
news;  news  items  are  coded  by  category,  and  thus, 
a  computer  on-line  could  select  items  of  interest. 

Travel  information.  A  travel  service  data 
bank,  filled  with  information  regarding  flights, 
schedules,  prices,  availability,  reservations,  and  so 
on  could  supply  all  the  information  necessary  for 
you  to  plan  a  vacation  or  an  outing,  via  a  telephone 
modem. 

Stock  market  quotes.  A  continual  Dow 
Jones  listing  service  could  supply  stock  market 
quotes  to  the  home  computer  via  a  telephone 
modem.  Such  a  service  would  be  a  boon  to  those 
attempting  stock  market  analyses  with  their  com- 
puter. 

Educational  programs.  Quality,  compre- 
hensive educational  programs  are  being  developed 
for  the  growing  home  computer  video  tape  player 
can  be  used  in  conjunction  with  the  computer  to 
provide  television  images  that  cannot  be  provided 
with  conventional  computer  graphics.  In  addition, 
the  computer  can  randomly  access  video  images 
from  a  video  disk  to  provide  interactive  education. 

Business  extensions.  Computer  program- 
mers, professional  investors,  and  other  profession- 
als who  do  most  of  their  work  with  a  computer 
system  are  beginning  to  install  home  terminals; 
soon  traveling  to  an  office  will  be  unnecessary. 

Computer  networks.   Numerous  amateur 


and  professional  computer  networks  have  been 
formed  for  the  exchange  of  programs,  ideas,  tips, 
and  other  information.  Commercially  available 
"bulletin  board"  software  allows  anyone  with  a 
computer  and  auto-answer  modem  to  form  their 
own  network.  Consult  Appendix  A  for  a  listing  of 
computer  bulletin  board  systems  available  in  your 
area. 

Intelligent  devices.  A  home  computer  in- 
terfaced with  household  devices  could  create  a 
complete  home  management  system.  Climate  con- 
trol, solar  energy  system  control,  television  set 
timing,  cooking  device  control,  and  so  on  could  all 
be  done  simultaneously  by  a  properly  equipped 
home  computer.  With  falling  costs  for  microcom- 
puters, such  control  applications  are  becoming 
economical. 

Other  possibilities  include  a  complete, 
computer-controlled  diagnostic  system  for  your 
automobile. 

Artificial  intelligence?  A  popularly  quoted 
assessment  of  computers  and  people  goes  like  this: 
"Computers  are  fast,  accurate,  and  stupid.  People 
are  slow,  inaccurate,  and  brilliant.  Together  they 
can  perform  incredible  feats  beyond  the  imagina- 
tion." With  the  advent  of  artificial  intelligence, 
computers  have  begun  to  enter  the  "brilliant"  cat- 
egory. So-called  expert  systems  are  capable  of 
making  informed  decisions  on  the  basis  of  hundreds 
of  thousands  of  rules  and  relationships  much  as  a 
human  expert  can.  Although  most  artificial  intelli- 
gence programs  are  intended  for  large  computer 
systems,  some  of  this  technology  will  be  available 
in  the  near  future  for  the  personal  computer. 
Numerous  applications  in  medicine,  business,  sci- 
ence, and  education  are  foreseen.  For  further  in- 
formation and  experimental  programs  for  use  on 
your  personal  computer,  see  Artificial  Intelligence, 
by  Neil  Graham,  TAB  Books,  Inc.,  Blue  Ridge 
Summit,  PA  17214. 

FUTURISTIC  APPLICATIONS 
THAT  ARE  NOT  YET  FEASIBLE 

However,  not  all  applications  suggested  by  the 
media  are  practical,  and  in  some  cases  may  not  be 
possible  to  accomplish  with  current  technology. 
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The  examples  of  impractical  applications  described 
below  will  serve  to  define  the  limits  of  personal 
computer  control/peripheral  applications. 

Personal  security  system.  By  determining 
heights,  weights,  and  diameters  of  all  who  come  to 
your  doorstep,  your  computer  will  be  able  to  recog- 
nize whether  or  not  that  person  is  an  acquaintance 
(based  on  previously  stored  information). 

The  problems  associated  with  this  application 
are  obvious;  the  equipment  to  determine  heights 
and  diameters  of  a  person  in  motion  would  be  dif- 
ficult to  interface  with  the  computer,  and  no  pur- 
pose is  given  for  spending  hundreds  of  dollars  to 
accomplish  such  a  feat. 

Robot  maid.  Some  authors  have  claimed  that 
domestic  androids  will  be  available  within  a  few 
years  to  do  such  chores  as  vacuuming  a  home, 
walking  the  dog,  washing  dishes,  preparing  food, 
and  so  on  and  will  have  the  capability  of  carrying  on 
a  natural  conversation  with  the  owner. 

Although  several  robots  are  commercially 
available  for  home  use,  the  application  of  these  as 
useful  household  servants  has  not  passed  the  point 
of  tedious  control  of  their  every  movement  by  hu- 
mans. Some  robots  are  available  with  sensors  that 
enable  them  to  avoid  collisions  with  people  and 
objects  such  as  furniture.  These  robots  can  even 
vacuum  a  floor  in  a  semirandom  fashion,  but  further 
applications  are  limited  by  inadequate  mechanics 
and  the  problem  computers  have  in  recognizing 
"universals. "  Dennis  Gabor  described  this  problem 
in  his  book  Innovations. 

"One  can  say  that  it  is  incomparably  easier  to 
design  a  computer  for  solving  a  wave  equation  be- 
yond the  reach  of  the  best  analyst  than  to  design  one 
that  will  pick  up  and  empty  ashtrays,  because 
ashtrays  come  in  so  many  shapes." 

Presumably,  the  use  of  the  television  camera 
is  the  only  way  to  give  a  robot  "sight."  Computer 
analysis  of  the  thousands  of  individual  pixels,  or 
dots,  in  a  television  picture  to  determine  what  ob- 
jects are  in  the  picture  is  not  yet  practical  for  per- 
sonal computers. 

The  problems  of  speech  input  are  also  numer- 
ous. A  very  large  memory  capacity  and  a  high  pro- 
cessing speed  are  necessary  for  "understanding" 


anything  even  approaching  normal  conversation. 

However,  hobbyists  show  considerable  inter- 
est in  robotics,  and  over  the  next  few  years  they 
will  produce  increasingly  sophisticated  robots. 

Controlling  an  automobile.  The  problems 
associated  with  the  computerized  control  (driving) 
of  an  automobile  are  much  the  same  as  those  as- 
sociated with  the  control  of  domestic  androids. 

NETWORKING 

The  world  is  your  neighbor  via  your  micro- 
computer. Within  the  past  few  years  there  has 
been  a  tremendous  growth  in  networking,  the  con- 
nection of  computers  to  other  computers  through 
the  use  of  modems  and  phone  lines.  Many  experts 
predict  that  networking  will  be  one  of  the  primary 
uses  of  personal  computers  in  the  future. 

What  services  are  available  from  networks, 
now  and  in  the  near  future?  One  important  applica- 
tion will  be  the  creation  of  an  electronic  banking 
system.  With  this  system,  you  will  be  able  to  make 
and  receive  payments  via  your  home  computer  ter- 
minal, which  would  be  the  main  computer  system  in 
your  bank  or  supermarket.  The  so-called  cashless 
society  will  become  a  reality. 

Another  important  aspect  of  networking  is  that 
you  will  have  access  to  vast  amounts  of  information 
instantly— everything  from  stock  market  quota- 
tions to  major  newswires  to  journal  and  en- 
cyclopedia articles.  You  will  also  be  able  to  ex- 
change information,  programs,  and  other  forms  of 
electronic  mail  with  one  or  all  of  the  thousands  of 
users  on  a  typical  network.  The  applications  of 
networking  services  for  personal  computer  users  is 
in  its  embryonic  stage,  and  many  new  applications 
are  forthcoming. 

Modems 

Modems  are  electronic  devices  that  allow 
communication  between  your  computer  and 
another  computer.  They  translate  the  electronic 
signals  from  a  computer  into  audio  tones  that  may 
be  sent  through  an  ordinary  phone  line  and  translate 
the  incoming  audio  signals  into  digital  signals.  The 
cost  for  a  modem  ranges  from  $50  to  over  $600 
depending  upon  its  capabilities,  but  most  personal 
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computer  users  can  find  a  modem  to  suit  their  needs 
for  under  $200. 

A  direct-connect  modem  patches  into  your 
phone  line  directly  and  is  the  simplest  to  use.  An 
acoustic -coupled  modem  which  cradles  an  ordinary 
telephone  handset,  is  often  less  reliable,  but  it  has 
the  advantage  of  being  usable  at  public  phones.  If 
you're  willing  to  spend  extra,  a  direct-connect 
modem  can  be  equipped  with  a  feature  that  will 
answer  the  telephone  automatically  and  can  dial 
numbers  stored  in  the  computer  and  then  initiate 
data  transmission;  these  features  are  called  auto- 
answer and  auto-dial 

The  other  consideration  in  buying  a  modem  is 
the  speed  at  which  it  can  send  and  receive  data.  The 
normal  telephone  line  is  capable  of  sending  up  to 
200  bits  of  information  per  second,  or  1200  baud. 
300  baud  is  most  commonly  used  by  computer  hob- 
byists. 


and  the  outside  world;  the  required  software  is 
commonly  called  a  terminal  or  communications  pro- 
gram. Modems  are  often  sold  with  these  communi- 
cation programs  as  a  package  designed  for  your 
brand  of  personal  computer.  This  software  will 
allow  you  to  send  messages  or  programs  to  the  main 
network  computer  and  display  or  store  incoming 
data.  Again,  a  wide  price  range  exists,  depending 
upon  the  capabilities  you  need;  these  factors  should 
be  reviewed  with  your  salesman  before  purchase. 

Available  Networks 

There  are  two  principle  networks  of  broad 
interest— CompuServe  and  The  Source.  Both  of 
these  services  offer  an  extensive  variety  of  infor- 
mation sources,  which  are  outlined  below: 

COMPUSERVE  INFORMATION 
SERVICE  SUBJECT  INDEX 


Terminal  Programs 

As  a  final  requirement,   you  must  write  or 
purchase  software  to  communicate  with  the  modem 


CompuServe 

5000  Arlington  Centre  Blvd. 
P.O.  Box  20212 
Columbus,  Ohio  43220 


AAMSI  Medical  Forum 
AID  calculations 
AMEX  prices  (MQUOTE) 
ASCMD  SIG 

ASI  Monitor 

AVSIQ 

Academic  American  Ency 

Access 

Access  phone  numbers 

Adult  education 

Adventure  gam* 

Advertl»era,  TODAY 

Advertltlng 

For  sale 

Notices 

TODAY  Magaime 

Want  ads 

Advertising,  classified 

St   Louis  Post- Dispatch 

Advice 

Aunt  Nettie 

African  weather 

Agribusiness 

Agrlcultursl  news 

Air  travel 

Firstworld  Travel  Club 

Official  Airline  Guide 

Pan  Am 

Travel  Fax 

Air  travel  delays 

Aircraft 

Airline  guide 

Airport  delay  guide 

Amateur  Radio 

Analogies  test 

Annusl  reports 

Apple,  progrsms  for 

Apple  User's  Group 

Appllsnces  for  sale 

Arcade  (SIG) 

Art  Gallery 

Articles,  computer 


Asian  weather 

Assoc  Press  Access 

Assoc  Viewdata  Wire 

Astrology  Gama 

Astronautlca 

Atari  Forum 

Athletic  equlpmsnt 

Athletic  a  Outfitter 

Atlss,  shopping  service 

Attorneys 

Author  8  (SIG) 

Auto  Information 

Govt  publications 

investors  Diversified 

Popular  Science 

AutoNet 

Autos,  buying 

AutoNet 

St   louis  Post  Dispatch 

Aviation 

ASl  Monitor 

EMI  Flight  Planning 

NSW  Aviation  Weathe- 

Of  iciai  Airine  Guide 

Pea*  Delay  Guide 

Avlstlon  Rules  &  Reg 

Avlstlon  Safety  Inst 

Avlstlon  (SIG) 

Avlstlon  weather 

Bacchus  Data  Services 

Banking,  electronic 

Banks 

Cent'a   Trade  Ban* 

First  Tennessee  Ban* 

Huntmgton  Naticma   Ban* 

Shawmjt  Ban*  d>  Boston 

Banshl  game 

Baseball  (AP  wire) 

Basic  CompuServe 

Beef  prices 

Belmont  Golf  Assoclstlon 

Belmont  s  golf  (SIG) 


Billing,  reviewing 

Blorhythme 

Blackjack  game 

Bliss  Isngusge 

Book,  ordering: 

Fifth  Avenue  Shopper 

Howard  Sams  Books 

Book,  reviews: 

AAMSl,  medical  |Ournals 

Rambo's  Reviews 

Boston,  Shswmut  Bsnk 

Bridge  gsme 

Brokersgs 

Budgeting,  home: 

CompuServe 

Gov't  publication 

Bulletin  Bosrd 

Business,  farming 

Business  Information  Wire 

Business  news: 

AP  Viewdata  Wire 

Business  Wire 

Canadian,  U  S     Int'l 

CompuServe 

Middlesex  Daily 

St  Louis  Post-Dispatch 

Washington  Post 

CB  Intarest  Group 

CB  Radio  simulation: 

Access  to 

Instructions 

Introduction 

CB  Society 

CEMSIG 

CP/M  user's  group 

Cameras  for  sale 

Canadian: 

Business  news 

Currency  exchange 

Stocks 

Canning,  home 

Car  cars 


Cars,  comparison 

Cattle  prices 

Central  Trade  Bank 

Changing  password 

Changing  terminal  type 

Charges,  monthly 

Checking,  banking 

Child  care 

Children,  education 

Children's  games 

Cinema  news 

Clarke  School  for  Deaf 

Classified  Ads 

St   Louis  Post-Dispatch 

Clothing,  fashion 

Clothing,  sport 

Cocoa  news 

Coffee  news 

College  cost  program 

Color  computer  (SIG) 

Color  graphics 

Columbus  area 

Banks 

Chambe'  of  Commerce 

Education 

SIG 

Command  level 

Commentaries 

Investment 

Video 

Commodities  calendar 

Commodities  future 

Commodltlss  glossary 

Commodity  News  Service 

Agricultural  news 

Commodity  prices 

Economic  news 

Fu.'ures  industry  news 

Futures  market  prices 

General  news 

Metals  news 

Weathe' 


Commodore  newsletter 
Commodore  VIC  (SIG) 
Comm   Industry  Forum 
CompuServe  command 
Comp-U-Stora 
Computer,  books 
Computer  club  news: 
Computers  &  Electronics 
The  Micro  Advisor 
Computer  Magazine  Index 
Computera  &  Electronlca 
Concentration  game 
Consumer  Items  for  sale 
Coneumer  news: 
Software 

Continuing  education 
Cooking  (SIG) 
Corporate  news  release 
Copper  futures  prices 
Copper  news 
Cotton  futures  prices 
Cotton  news 
Court  caaes,  aircraft 
Croaa  Assemblers 
Cruise  line 
Current  rates 
Database,  how  to  use 
Database  searches 
dataFamlliae 
Decwars  game 
Decwara  (SIG) 
DEFALTS,  setting 
Department  of  State 
Dlak  area 

Document  delivery 
Document  retrieval 
Documentation  ordering 
Dress 
Drugs 

Drugs,  medicine 
EMI  Flight  Plana 
Earnlnga  fnrecaats 
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Economic  news 

Editorials: 

Washington  Post 

Education: 

Academic  Encyclopedia 

Clarke  School  for  Deaf 

The  College  Board 

The  Multiple  Choice 

Education,  family 

Educational  games. 

Super  Brain  Challenge 

Witty  Write-ins 

Educator's  (SIG) 

Electronic  banking 

Electronic  Bounce  Back. 

Electronic  Heath  Catalog 

Electronic  mall 

Electronic  shopping 

Eliza  program 

EMAIL 

Emergencies,  auto 

Emergencies,  health 

Employee  benefits 

Encyclopedia 

Energy  conservation: 

Govt  publication 

Popular  Science 

Energy  news 

Entertainment: 

AP  Viewdata  Wire 

CompuServe 

Hollywood  Hotline 

Environmental  Forum 

Equipment,  mining 

European  weather 

Executive,  terminal 

Expert,  music 

FAA  reports 

FAA  rule  changes 

FOI  Newsline 

Facts,  general 

Family  budget 

Family  life 

Family  Matters  Forum 

Fantasy  game 

Farming 

Fashions 

Federal  govt  news: 

Associated  Press  News 

Washington  Post 

Federal  publications 

Fedwatch  newsletter 

Feedback,  CompuServe 

Fifth  Avenue  Shopper 

FILGE  Instructions 

Finance 

Financial  advice 

Financial  aid,  college 

Financial  forecasts 

Financial  Information 

Financial  Insurance 

Financial  news  (AP) 

Financial  news,  micros 

Financial  planning 

Financial  services 

Fire  Fighters'  (SIG) 

Fire  prevention 

Fireplaces,  firewood 

First  Aid 

First  Tennessee  Bank 

Flretworld  Travel  Club 

Fitness 

Flight  operations 

Flight  plans 

Flowers,  ordering 

Focal 

Food  &  Drug  Admin 

Food  Buyllne  (SIG) 

Food  Information: 

FDA 

Food  storage 

For  fitness 

Freezing 

Menus 

Football  (AP  wire) 

Football  game 

For  Sale. 

Bulletin  Board 

Clothing,  sport 

Consumer  goods 

Fortran  (XF4) 


Funds  Management 

Fur  Trader  game 

Futures  Industry  news 

Futures  prices 

Games,  computer: 

Adventure 

Astrology 

Backgammon 

Banshi 

Biorhythms 

Blackjack 

Bridge 

Chess 

Civil  War 

Concentration 

Decwars 

Dice 

Ehza 

Fantasy 

Fastermind 

Football 

Fur  Trader 

Golf 

Gomoku 

Hammurabi 

Hangman 

Kesmai 

Lunar  Lander 

Magic  Cube  solution 

Maze 

Megawars 

Mugwump 

New  Adventure 

Othello 

Real-Time  Star  Trek 

Roulette 

Scott  Adams 

Scramble 

Space  War 

Star  Trek 

Trivia  test 

Wumpus 

Games  (SIG) 

Gandolf'a  Reports 

Gardening 

Gasoline,  saving 

General  banking 

Godlva  chocolate 

Gold: 

Future  prices 

News 

Golf,  Belmont  Golf  Assn 

Golf,  Official  PGA  Tour: 

Biographies 

Players 

Statistics 

Golf  (SIG) 

Gomoku  game 

Good  Earth  (SIG) 

Grain  prices 

Grains  futures 

Groller's  Encyclopedia 

Ground  water 

Hammurabi  game 

HamNet  (SIG) 

Handelman's  Athletic  Sup 

Handicapped,  deaf 

Hardware  reviews 

Health 

Health  and  fitness 

Health  Care 

Health  Resources 

Health4ex 

Heath  Users'  Group 

Heathklt  Catalog 

Helnold  Commodities 

Help 

Help  (documentation) 

Hl-Tech  Forum 

Hockey  (AP  wire) 

Hollywood  Hotline 

Home  banking 

Home  finance 

Home  management  programs: 

Amortize  a  loan 

Calculate  a  raise 

Checkbook  balancer 

Net  worth 

Home  services 

Horticulture 

House  plants 


Howard  Sams  Books 

Humor,  satire 

Huntington,  bank 

Husbandry 

IBM-PC  (SIG) 

IDS 

IRA 

Immigration 

Index: 

AAMSI  journals 

CompuServe 

Computer  Periodical 

Stock  Market 

Industries,  farming 

Information,  music 

Information  on  Demand 

Information  Retrieval  Ser 

Insurance: 

Dental 

Disability 

Employee  Benefits 

Health 

Life 

Miscellaneous 

Insurance,  aircraft 

Intelligence  test 

Interest  rate 

Investment  news 

Investment  News  &  Views 

Investments: 

MicroQuote 

Investors  Diversified 

Job,  In  the  home 

Jobs: 

St  Louis  Post-Dispatch 

Jumbled  words  test 

Kesmai 

Kitbulldlng 

LDOS  (SIG) 

Languages  on  CompuServe: 

Bliss 

Focal 

Fortran 

Macro 

Pascal 

Snobol 

Legal  Forum 

Legal  Issues 

Library,  electronic 

Llneprlnter  art 

Liquid  Green 

Literary  (SIG) 

Llveelock  futures 

Livestock  prices 

Lobby  Letters 

MMS  Financial  Analysis 

MNET-11  (SIG) 

Macro 

Magazine,  advertisers 

Magic  Cube  solution 

Melnstreemlng 

Melntenance  equip 

Menuala,  documentetlon 

Menufacturers  newsletters 

Commodore 

RCA 

Tandy 

Maps,  roed  trsvel 

Merlne  weather 

Market  prices 

Market  research 

Massachusetts,  banking 

Medical 

AAMSl  Forum 

ASCMD  Forum 

FOI  Newsline 

Medical  newsletter 

Medical  Records 

Medicine,  consumer 

Metals  futures  prices 

Metals  prices 

Micro  Advisor,  The 

Microcomputers 

Advice 

Fmancai  news 

General 

RCA 

Tandy 

Whai  S  new  m 

MicroQuote 

Microsoft  (SIG) 


Middlesex  Daily  News 
Mine-Equip 
Money  market 
Money  supply 
Monthly  charges 
Mortgage  budgeting 
Movie  reviews 
CompuServe 

Mo"ywOOd   Ho',  ne 

Multiple  Choice,  the 

Music 

Music  Forum 

Music  Information  Service 

Musus-Pascal  (SIG) 

Mutual  Funds 

NASA 

NIPSIG 

NOAA  weather 

NTSB  esses  (aviation) 

NWS  aviation  (weather) 

NYSE  prices  (MQUOTE) 

Names  of  users 

National  issues  (SIG) 

National  Water  Well  Assn 

National  Weather  Service 

Ne  twits 

Netwlts  (SIG) 

New  product  news 

^op^'a'  Science 

The  Micro   Adv. SO' 

New  services 
News.  CB 
Newsletters 

AAMSl  Communications 

Commodore 

RCA 

Tandy 

Newspapers 

Node  locations 

North  American  weather 

Norwegian  Am    Cruises 

Notices  (Bullet) 

Nutritional  analysis 

OK  level 

OTC  drugs 

OTC  prices  (MQUOTE) 

Official  Airline  Guide 

Ohio,  banking 

Ohio  regional  news 

Ohio  Scientific  (SIG) 

Options,  stock 

Orch-90  music  (SIG) 

PGA  Official  Tour  Guide 

PUG  (Panasonic  SIG) 

Pan  Am 

Panasonic  (SIG) 

Parenting  &  Family  Life 

Pascal (SIG) 

Password,  changes 

Peak  Delay  Guide 

Periodical  Guide 

Personal  computing 

Personal  finance: 

Govt  publications 

Home  Management 

Investors  Diversified 

Personality  profile 

Pets 

Pilot  weather 

Plants 

Politics: 

AP  Viewdata  Wire 

Middlesex  Daily 

Washington  Post 

Popular  Science  Magazine: 

Automotive  News 

New  products 

Science  &  Technology 

Software  reviews 

Pork  prices 

Portfolio  valuation 

PowerSoft  s  XTRA-80 

Precious  metals 

Precious  metals  news 

Prescriptions 

Prime  Interest  Rates 

Primetime  Radio  Classics 

Professional: 

Agr;business  oataoase 

Eng  Technical  database 

Env.'o^menta   database 


Programmer  s  SIG 

Programming  area 

Programming  languages 

Programs  tor  sale 

Programs  from  users 

Programs,  medical 

Public  access 

Quick  Quote 

RCA  Newsletter 

RCA  (SIC) 

Radio 

Amateu' 

G"d  raa-c  shows 

Radio  Shack  computers 

Ralnbo's  Reviews 

Rates,  CompuServe 

Real  estate,  ads 

S?    .Ous  Post-D'spatc* 

Recipes  (SIG) 

Recordkeeping,  home 

Reference  guide 

Referral  Service,  law 

Regulatory  Affairs  Prof 

Reservations,  airline 

F"stwo'id  T'ave 

Resource,  water 

Reviews,  hardware 

Reviews,  movie 

CompuServe 

Reviews,  software 

Popular  Science 

The  Mic^c  Advisor 

SAT  test  information 

SIGS 

AAMSl 

ASCMD 

AVSIG 

A'cade 

Atari 

Author's 

CBIG 

CEMSIG 

Commodore 

Commodore  Pet 

Commodore  64 

Commodore  VIC  20 

Communications 

Cooks   Underground 

CP  M  Group 

Decwars 

Educators 

Environmental 

Family  Matters 

FireNet 

Food  Buylme 

Games 

Golf 

Good  Earth 

HamNet 

Hi-Tech 

HUG  (Heath) 

IBM-PC 

LDOS  TRS-80 

Legal 

Literary 

MAUG  (Apple) 

Microsoft 

MNET-11 

MNET80  TRS-80 

Music 

Musus-Pascal 

Netwits 

NIPSIG 

Orch-90 

OSI 

PowerSoft  s  XTRA-80 

Programmers 

PUG  (Panasonic) 

RCA  Group 

Space 

Sports 

Teiecomm 

Travel 

TRS-80  color 

TRS-80  Modei  100 

Veterinarians 

Work-at-Home 

St.  Louis  Post-Dispatch 

Sams,  Howard  Books 

Satire 

Saving  Accounts 
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Scott  Adams   games 

Sports  news: 

Financai  aid 

Meat 

Scramble  game 

Golf 

Publications  o* 

Poultry 

Securities: 

St  Louis  Post-Dispatch 

SAT  test  information 

U.S.  Department  of  State 

Information 

Scores  (AP) 

U.S.  News: 

The  National  Satirist 

Self-employment 
Self-Health 

Sports  quiz 
Sports  (SlG) 

Time  used 
TODAY,  advertisers 

Middlesex  Daily 

St   louis  Post-Dispatch 

Washington  Post 

Services  for  the  Deaf 

Spotlight,  CBers 

Trading,  commodities 

Shawmut,  bank 

Standard  &  Poors 

Used  cars,  buying 

Shop-at-home 

Star  Trek  game 

Travel. 

User  directory 

Shopping: 

Cars 
Musical 
Radio  Snows 
Shuttle,  space 

State  capital  games 

Stereos  for  sale 

Stevens  Business  Reports 

Department  of  State 
Firstworld  Trave!  Club 
Norwegian,  Am   Cruises 

User  Information 
liter's  programs 

Official  Airhne  Guide 

VIC  20  (SlG): 

Stocks,  bonds: 

Pan  Am 

Vacationing 

MicroQuote 

Travel  Fax 

Value  Line  Database 

Silly  fill-ins 

Quick  Quote 

TraveiViSion 

Vegetables 

Silver  futures  prices 

Sugar  futures  prices 

Worldwide  Exchanges 

Veterinarians  Forum 

Silver  news 
Ski  conditions 

TMC  for  kids 

Travel,  abroad: 

Victory  Garden 

Small  business  reports 
Smoking  and  health 
Snobol 

TRS-80  color  (SlG) 
TRS-80  computers 
TRS-80,  MNET80  (SlG) 

Department  of  State 
Firstworld  Travel  Club 
Norwegian  Am    Cruises 

Video  Information 
Videotex,  views  on 
VIDTEX  executive 

SOFTEX 

TRS-80  Model  100  (SlG) 

O^iciai  Airline  Guide 

Viewpoint,  CompuServe 

Software  Authors   SlG 

TRS-80,  programs  for 

Pan  Am 

Want  ads  (Bullet) 

Software  Exchange 

Tandy  Corp.  news 

Travel  Fax 

War  games: 

Technical  books 

Travel,  advisories 

Decwars 

Software  reviews 

Technical  research 

Travel,  airline  guide 

Megawars 

Popular  Science 

TeleComm  (SlG) 

Travel  Fax 

Space  War 

The  Micro  Advisor 

telephone  access 

Travel  (SlG) 

Washington,  D.C.  area: 

South  America  weather 

Tennessee,  banking 

Traveler,  airport  guide 

Middlesex  Daily 

Space (SlG) 

Terminal  parameters 

TTavelVision 

St   Louis  Post-Dispatch 

Special  Interest  Groups 

Terminal  software 

Treasury  bills,  yields 

Washington  Post 

Access  tc 

Terminal  types 

Trivia: 

Washington  Post 

Commerua 

Tests,  children 

Kids 

Water,  ground 

Descriptions  'J 

Tests,  Interactive 

MOViP 

WaterLlne 

Gene-a 

Tests,  SAT 

Radio 

Weather: 

Hardware  related 

Text  editors 

U-!'mited  test 

AP  Viewdata  Wire 

instructions 

The  College  Board 

UCSD  Pascal  Group 

African  weather 

Software  related 

Adult  education 

USDA  Grades 

Asian  weather 

Sport,  clothes 

Choosmg  a  college 

USDA  standards. 

Aviation  weather 

European  weather 

Extended  forecasts 

N   American  weather 

S   American  weather 

Sports  forecasts 

State  forecasts 

What's  New 

Wheat  prices 

Wine  guide 

Wire  service  news. 

(see  Associated  Press  Access) 

Word  processors 

Work-at-Home  (SlG) 

World  news: 

AP  Viewdata  Wire 

Associated  Press 

Washington  Post 

Worldwide  Exchanges 

Yachts 

Associated  Press  News  Access 

Financial  wire: 

Middlesex  Daily  News 

St   Louis  Post-Dispatch 

Washington  Post 

Sports: 

Middlesex  Daily  News 

St  Louis  Post-Dispatch 

Washington  Post 

U.S.  News: 

Middlesex  Daily  News 

St   Louis  Post-Dispatch 

Washington  Post 

Washington  News: 

Middlesex  Daily  News 

St   Louis  Post-Dispatch 

Washington  Post 

World  News. 

Middlesex  Daily  News 

St   Louis  Post-Dispatch 

Washington  Post 


THE  SOURCE 

Source  Telecomputing  Corporation 
The  Reader's  Digest  Association,  Inc. 
1616  Anderson  Road 


McLean,  Virginia  22102 

(800)  336-3366 

(800)  572-2070  (in  Virginia) 

(703)  734-7500  (outside  the  U.S.) 

Abbreviated  listing 


ADVANCED  APPLICATIONS  &  PROGRAMS 
ADVICE  COLUMN 
AIRSCHEDULES 
Domestic 
International 
Inter-City 
ASTROLOGY  LIBRARY 
AWARE  FINANCIAL  SERVICE  GLOSSARY 
BARTER-TRADE  NETWORK 
BUSINESS  4  FINANCE 

Analysis  Programming 

Annuities  Analysis 

Aware  Financial  Service 

Spreadsheet 
PURCHASE  VS  PRODUCTION  COMPARISON 
BUSINESS  PROGRAMS 

Complete  Listing 

Amortization  of  Loans 

Amortization  of  Loan  UNK  Term 

Annuity  Debt  Payment 

Balancing  Checkbook 

Capital.  Cost  of  Equity 

Cashflow  Present  Value 

Commission.  Sales  Report 

Depreciation  Schedule 

Equipment  Lease  vs  Purchase 

Equity  Capital  Cost  of 

Inter-Industry  Flow  of  Goods  &  Services 

Interest  Bonds 

interest   Loans 

Sales  Commission  Report 
CALCULATOR 
CAREER  NETWORK 
CLASSIFIED  ADS 

COMMODORE  BUSINESS  MACHINES 
COMMUNICATIONS 
CHAT 

Chat  (live  conversation  with  other  subscribers) 
TELECONFERENCING 
SOURCEMAIL 


To  Check  Mailbox 

To  Read  Letters 

To  Scan  Correspondence 

To  Send  a  Letter 

General  information 

Commands  in  Mail 

Cross-Referenced  Names 

Operation  of  SourceMati 

Timed-Mail  Delivery 

To  Send  a  MAILGRAM 
MISCELLANEOUS  COMMUNICATION  SERVICES 

Contents  of  THE  SOURCE 

Personal  Appointment  Schedule 

THE  SOURCE  Announcements 

THE  SOURCE  Toil  Charges 

Suggestions  for  THE  SOURCE 

Subscribers  Currently  On-line 

TYMNET  TELENET  Access  Numbers 

Subscriber  Directory  Services 

The  Common-Interest  Directory 

I  o  Add  Your  Name  and  Number 
CONSUMER  INFORMATION 
DINING  OUT  WASHINGTON  D  C 
NEW  YORK  CITY 
CONTINENTAL  U  S  &  CANADA 
DISCOUNT  SHOPPING  SERVICE  (COMP-U-STORE) 

Instructions 

Overview 

Bargains  (the  monthly  listing) 

Auction 

Product  and  Manufacturer  List 

Begin  Shopping 
Covering  the  following  product  categories 


Appliances 
Cameras 
Cars 
Crystal 
Figurines 
EDUCATION 


Fine  China  Sterling 

Furniture  Televisions 

Pianos  and  Organs  Video  Recorders 

Specialty  Items  Watches 
Stereo  &  Audio 


ENERGY  SAVING  NEWS  &  TIPS 
FINANCIAL  MARKETS 

UNISTOX  REPORT  INDEXES 

Alphabetically 

By  Time 

Dividends.  Earnings 

Earnings  Reports 

Exchange  Rate 

Federal  Land  Bank  Bonds 

Futures.  Treasury  Bills 

Futures  &  Options 

Glossary  of  Stock  Investment  Terms 

Indexes.  Stock  Market  Daily  Avgs 

Moody  s  Index 

Standard  &  Poor  s  Index 
AMERICAN  STOCK  EXCHANGE 

Bonds 

Closings  (All  Stock  Exchanges) 

Ten  Most  Active 

Weekly  Composite  Prices 

Weekend  Bond  Prices 
BONDS 

AMEX  Daily  Listing 

Bond  Yield  Computations 

Bond  Price,  Accrued  Interest 
Computations 

Federal  Land  Bank,  Daily 

NYSE  Daily  Listing 

Treasury  OTC.  Daily 

World  Bank,  OTC,  Daily 

Treasury  OTC,  Weekend 

Weekend  Listings 

Commodities 
METALS 

Metals  News 

Gold  News 

Gold  Spot  Prices 

NY  Chicago  Mkt  Prices 

NY/ London  Mkt  Prices 

Platinum 
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Silver  Coins 
Silver  Prices 
Silver  News 
MONEY  MARKET  NEWS  AND  COMMENTS 
Afternoon  Lead 
Futures 

Markets  at  a  Glance 
Night  Lead 
Noon  Lead 
NYSE  Trends 
Opening  Lead 
Stock  Pulse 
What  the  Market  Did 
FINANCIAL  MODELING 

FOR  BUSINESS  PLANNING 
FINANCIAL  NEWS 
GAMES 

Adventure 
Backgammon 
Blackdragon 
Cards 

Blackjack 

Super  Blackjack 

Bridge 

Poker 

Tricks 
Checkers 
Chess 

Children  s  Programs 
Civil  War 
Craps 
Draw 
Farmer 
Fill  in  Letters 
Football 
Golf 

Govern  Sumena 
Guess  Computer  s  Number 
Hangman 
Horse  Race 
l-Ching 
IQ  Test 
Life 

Lunar  Landing 
Market  A  Product 
Mastermind 
Maze  Generation 


Mind  Reading 

NIM 

Patrol  Streets  (game) 

Poster 

Puzzles 

Rule  Sumena 

Score  Four 

Sinners 

Slalom 

Slot  Machine 

Sonnets 

Statistics 

Star-Trek 

Super  Adventure 

Target  Practice 

Tic  Tac  Toe 

Toro 

Tricks 

Vegas 

Wumpus  Hunt 
INFORMATION  ON  DEMAND 
INFORMATION  ON  UPDATES  TO  THE  SOURCE 
MANAGEMENT  CONTENTS 
Overview 
Instructions 
The  List  of  Journals 

On  the  following  Journals 

Across  the  Board  INC 

Administrative  Management       Institutional  Investor 

American  Demographics  Journal  of  Retailing 

The  Banker  Medical  Economics 

Business  and  Society  Review     Mergers  &  Acquisitions 


BusinessWeek 
Cash  Flow  Magazine 


Dun  s  Review 

Federal  Reserve  Bulletin 

Financial  Executive 

Forbes 

Fortune 

Futurist 

Harvard  Business  Review 
MEDIA  GENERAL  STOCK  ANALYSES 
Overview 
Instructions 

Categories  of  Stock  Comparison 
Definitions  of  Data  Items 


Monthly  Labor  Review 

Office.  The 

Practical  Accountant 

Sloan  Management 

Review 

Taxes 

Venture 

Vital  Speeches 

Wharton  Magazine 


Industry  Groups  Numbers  List 
Creating  Portfolio  Files 

"Stock  Analysis  and  rabies" 
MEDICAL  ADVICE 

MENU  TO  MANY  DATA  BASES  ON  THE  SOURCE 
MOVIE  REVIEWS  BY  JAY  A  BROWN 
NEWS 

PERSONAL  CALENDAR  &  NOTEBOOK 
PERSONAL  FINANCE 
POLITICAL  ACTION  REPORT 
PORTFOLIO  MANAGEMENT 
PROFESSIONAL  BOOK  CENTER 
PUBLISHERS  WEEKLY 

BESTSELLERS  LIST 
RADIO  PROGRAMS  TO  ORDER 
RAYLUX  FINANCIAL  SERVICES 
SCIENCE  &  ENGINEERING 
SELF-PERCEPTION 
SMITHSONIAN  EXHIBITS 

AND  TOURING  EXHIBITS 
SPECIAL  APPLICATIONS 
STUDENT  AID 
TAXES 

Assets 

Calculation  of  Income  Statement 

Computing  Taxes 

Contributions 

Credits 

Debts 

Deductions 

Dependents 

Depreciation  Schedule 

Donations 

Expenses 

Income  Statement  Pro  Forms 

Income  Tax 

Taxes 
TRAVEL  CLUB 
UNISTOX 
UNITED  PRESS 

INTERNATIONAL  (UPI) 
USER  PUBLISHING 
VOICEGRAM 
WEATHER 
WINE 
WISDOM  OF  THE  AGES 


Local  networks.  A  comprehensive  listing  of 
local  networks  or  "bulletin  board  systems"  (BBS), 
the  computer  era's  answer  to  old-fashioned 
corkboards,  for  personal  computerists  follow.  To 
post  a  notice,  you  dial  the  service  and  add  your 
message  to  a  list  of  notices  that  will  appear  on  your 
screen.  If  any  message  interests  you,  you  can 
reply— on  your  computer,  of  course.  Usually,  your 
only  cost  is  the  phone  charges. 

The  codes  printed  next  to  each  BBS  phone 
number  are  explained  here: 
*24     denotes  24-hour 

operation 
#1      denotes  original  system 


of  that  type 
-rb    denotes  call,  let  ring 

once  and  call  back 
-so    sexually  oriented 

messages 
-rl     religious  orientation 
!         new  system  or  new  number 

for  existing  system 
1        Supports  VADIC  1200  baud 

operation 
&       Supports  21 2 A  1200  baud 

operation 

Start  dialing  and  explore! 


ABBS  Apple-Mate,  New  York,  NY (201)  864-5345 

ABBS  CCNJ,  Pompton  Plains,  NJ   (201 )  835-7228 

ABBS  Livingston,  Nj    (201)  994-9620*24 

A-C-C-E-S-S  Wyckoff,  NJ (201)  891-7441*24 

Aphrodite-E (201 )  790-5910-so 

CONFERENCE-TREE  ?,  Flagsh.p,  Denv.lle,  NJ    (201)627-5151*24 

DIAL-YOUR-MATCH  #14 (201)  272-3686-so 

FORUM-80  Linden,  NJ    (201)  486-2956*24 

FORUM-80  Monmouth,  Brielle,  NJ   (201)528-6623*24 

New  jersey  TELECOM   #1(201)635-0705*24 

PHOTO-80,  Haledon,  NJ (201)  790-6795 

PMS  -  Rutgers  Univ.  Microlab,  Piscataway,  NJ (201)932-3887 

PMS  -  Shrewsbury,  NJ (201)  747-6768 

RATS  ?,  NJ  #1   #1(201)  887-8874 

RCP/M  MCBBS  Ken  Stritzel,  Flanders,  NJ    (201)  584-9227*24 


RCP/M  RBBA  Cranford,  NJ (201)  272-1874 

RCP/M  RBBA  Ocean,  N] &(201)  775-8705 

RCP/M  RBBS  Paul  Bogdanovich,  NJ   (201)  747-7301 

PCP/M  RBBT  New  Brunswick,  NJ (201)  932-3879*24 

ARMUDIC  Washington,  DC   #1(202)  276-8342 

PSBBS  Washington,  DC    (202)  337-4694*24 

BULLET-80  Danbury,  CT #1(203)  744-4644 

BULLET-80  Seymour,  CT (203)  888-7952 

Telcom  7  New  Fairfield,  CT (203)  746-5763*24 

FORUM-80  Montgomery,  AL   (205)  272-5069 

RCP/M  RBBA  Huntsville,  AL    (205)  895-6749-rb 

ABBS  Apple  Crate  I,  Seattle,  WA (206)  935-9119 

A-C-C-E-S-S  Olympia,  WA    (206)  866-9043*24 

Dial-Your-Match  #16 (206)  256-6624-so 

FORUM-80  Seattle,  WA   (206)  723  3282 
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JCTS  Redmond,  WA 

MSG-80  Everett,  WA 

Mail  Board-82  Seattle,  WA 

Mim-B.n  Seattle,  WA 

PMS  -  Software  Unltd,  Kenmore,  WA    

RCP/M  RBBS  Yelm,  WA 

Seacomm-80  Seattle,  WA   

DIAL-YOUR-MATCH  #26,  Clovis,  CA    

ABBS  (?)  Queens,  NY   

Bronx  BBS,  NY   

BULLET-80  New  York,  NY   

COMM-80  Queens,  NY   

CONNECTION-80  Woodhaven,  NY < 

Leigh's  Computer  World,  NY,  NY   (7PM) !■ 

NET-WORKS  New  York,  NY   < 

Nybbles-80  NY 

Pat-100  System  New  York,  NY 

•PEOPLE-LINK*    #1!' 

PMS  -  McGraw-Hill  Books,  New  York,  NY 

STUART-200  BBA  Howard  Beach,  NY 

TCBBS  AstroCom,  New  York,  NY #l! 

TCBBS  BAMS    New  York,  NY    

TCBBS  Leigh's  Computer  World,  NY 

VTUGS  NY,  NY  (VIC-20) *1 

All  Night  BBS 

ABBs  Computer  Conspiracy,  Santa  Monica,  CA    

ABBS  Pacific  Palasades,  Los  Angeles,  CA 

BBS  BR.,  Los  Angeles,  CA 

Computer  Connection 

CONFERENCE-TREE  #4,  Santa  Monica,  CA   

CONFERENCE-TREE  Kelp  Bed,  Los  Angeles,  CA 

Datamate,  Conoga  Park,  CA    #1 

DIAL-YOUR-MATCH  #1 

DIAL-YOUR-MATCH  #11 

DIAL-YOUR-MATCH  #22 

DIAL-YOUR-MATCH  #4 

DIAL-YOUR-MATCH  #9 

Dragons  Game  System    (pass-DRAGON) 

Electric  Line  Connection,  Sherman  Oaks,  CA 

Greene  Machine  Fricaseed  Chicken,  Arcadia,  CA 

Greene  Machine,  Los  Alamitos,  CA ! 

Greene  Machine,  Temple  City,  CA    ! 

Kluge  Computer   $&' 

LA    Interchange,  Los  Angeles,  CA ' 

Long  Beach  Community  Computer 

NET-WORKS  Com  Games,  Los  Angeles,  CA < 

NET-WORKS  Computer  World,  Los  Angeles,  CA < 

NET-WORKS  Softworx,  West  Los  Angeles,  CA    

Novation  CO  ,  Los  Angeles,  CA [pass-CAT) .  . 

Oracle  North  Hollywood,  CA    

PASBBS  Torrance,  CA 

PMS  -  Los  Angeles,  CA 

PMS  -  O.A.C.  Woodland  Hills,  CA 

RCP/M  CBBS  Pasadena,  CA    

RCP/M  RBBA  BBA  Valley    

RCP/M  RBBA  GRRN  Dta  Exch    Palos  Verdes,  CA $&< 

RCP/M  RBBS  Sofwa.re  Store,  Los  Angeles,  CA 

ABBS  Dallas  Info  Board 

ABBS  Teledunion  II,  Dallas,  TX    

ABBS  Teledunion  III,  Dallas,  TX 

ABBS  The  Moon.  Dallas,  TX 

BBS-80  DALTRUB,  Dallas,  TX 

BULLET-80  Hawkins,  TX 

NET-WORKS  Apple  Grove.  Dallas,  TX    

NET-WORKS  Apple  Shack,  Dallas,  TX 

NET-WORKS  Eclectic  Computer,  Dallas,  TX    

NET-WORKS  Hacker-net,  Dallas,  TX 

NET-WORKS  Winesap,  Dallas,  TX    

RCP/M  C  BBS  Dallas,  TX    

BULLET    80  langhorne,  PA         ' 

COMNLT-80  North  Wales.  PA ' 

Hermes-80  Allentown.  PA  

Lehigh  Press  BB,  PA #1 

RCP/M  RBBA  Allentown,  PA    

ABBS  Akron  Digital  Group,  Akron,  OH 

BBS  Computer  Applications  Co.,  Poland,  OH 

BULLET-80  Chesterland,  OH   

COMNET-80  Akron,  OH & 

FORUM-80  Cleveland,  OH & 

INFOEX-80  Akron,  OH !' 

PMS  -  Massillon,  OH 

PMS  -  R AUG,  Akron,  OH   i 

BULLET-80  Springfield,  IL < 

NET-WORKS  CAMS.,  Decatur,  IL < 

A-C-C-E-S-S  Annapolis,  MD i 

ABBS  Computer  Crossroads,  Columbia,  MD i 


883-0403*24  ARMUDIC  Computer  Age,  Baltimore,  MD (301)  587-2132 

334-7394  BBS  IBM  PC  Beltsville,  MD !(301)  937-4339*24 

527-0897*24  BBS  IBM  PC  Bethesda,  MD !(301)  460-0538*24 

762-5141*24  BBS  IBM  PC  Gaithersburg,  MD !(301)  251-6293*24 

486-2368*24  BBS  IBM  PC  Rockbille,  MD !(301)  949-8848*24 

458-3086-rb  CBBS  CPEUG/ICST  Gaithersburg,  MD (301)  948-5717 

763-8879*24  CONNECTION-80  Gaithersburg,  MD (301)  840-8588*24 

298-1328-so  HEX  Silver  Spring,  MD %(301)  593-7033*24 

896-0519  NET-WORKS  COMM  Center,  Laurel,  MD (301)  953-3341 

933-9459  PMS  -  Baltimore,  MD   (301)  764-1995*24 

740-5680*24  PMS  -  Ellicott  City,  MD (301)  465-3176 

897-3392*24  PMS  -  Pikesville,  MD (301)  653-3413 

441-3755*24  PSBBS  Baltimore,  MD (301)  994-0399*24 

879-6257  RCP/M  RBBA  Bethesda,  MD (301)  229-3196 

410-0949  RCP/M  RBBA  Laurel,  MD (301)  953-3753*24 

626-0375  Remote  Northstar  NASA,  Greenbelt,  MD (301)  344-9156 

991-1664*24  ABBS  Denver,  CO    (303)  759-2625 

877-7703*24  BBA  IBM  PC  Denver,  CO    !(303)  773-2699*24 

997-2488  CONNECTION-80  Denver,  CO (303)  690-4566*24 

835-5962*24  FORUM-80  #2,  Denver,  CO    (303)  399-8858*24 

799-4649  HBBS  Denver,  CO   (303)  343-8401*24 

362-1040*24  RCP/M  CUG-NOTE,  Denver,  CO (303)  781-4937*24 

897-7698  RCP/M  RBBS  Arvada  Elect.,  Colorado  Springs,  CO (303)  634-1158*24 

534-3149*24  RCP/M  RBBS  Boulder,  CO (303)  499-9169 

564-7636  Remote  Northstar  Denver,  CO (303)  444-7231 

829-1140  NET-WORKS  Charleston,  WV (304)  345-8280 

459-6400  ABBS  Byte  Shop,  Ft.  Lauderdale,  FL  (305)  486-2983 

394-5950*24  ABBT  Byte  Shop,  Miami,  FL    (305)  261-3639 

657-1799  ABBS  West  Palm  Beach,  FL  (305)  848-3802 

394  1505  AMIS  APOGEE  Miami,  FL (305)  238-1231-rb 

372-4800  BBS  Homestead,  FL    (305)  246-1111 

998-7992-so  CONNECTION-80  Orlando  FL (305)  644-8327*24 

842-3322-so  CONNECTION-80  Winter  Garden,  FL (305)  894-1886*24 

242-1882-so  FORUM-80  Ft.  Lauderdale,  FL (305)  772-4444*24 

990-6830-so  Greene  Machine  Corsair,  WPB,  FL 1(305)  968-8653 

783-2305-so  Greene  Machine,  WPB,  FL  (305)  965-4388-so 

345-1047-so  INFOEX-80  West  Palm  Beach,  FL (305)  683-6044*24 

428-5206  MOUSE-NET  Orlando,  FL (305)  277-0473*24 

789-9512  Micro-80  West  Palm  Beach.  FL   (305)  686-3695 

445-3591*24  NET-WORKS  Big  Apple,  Miami,  FL    (305)  948-8000 

431-1443  Personal  Msg.  System-80  Deerfield  Bch,  FL    &(305)  427-6300*24 

287-1363  TRADE-80  Ft.  Lauderdale,  FL #1(305)  525-1192 

947-8128*24  PET  BBS  SE  Wyoming  PUG (307)  637-6045*24 

631-3186*24  ABBS  Peoria,  IL (309)  692-6502 

591-7239*24  NET-WORKS  MAGIE,  Galesburgh,  IL (309)  342-7178 

336-5535  RCP/M  Geneseo,  IL    (309)  944-5455 

859-0894*24  ABBS  CODE,  Glen  Ellny  IL (3J2)  537-7063*24 

473-2754  ABBS  Gamemaster,  Chicago,  IL   (312)  475-4884*24 

881-6880  ABBS  Illini  Microcomputer,  Naperville,  IL (312)  420-7995 

980-5643-so  ABBS  Rogers  Park,  Chicago,  IL (312)  973-2227 

516  708  AMIS  Chicago,  IL   (312)  789-3610*24 

334-7614*24  AMESSY  Chicago,  IL    +1(312)  773-3308 

1849*24  BBS  IBM  PC  Modem  Chicago,  IL !(312)  259-8086*24 

799-1632*24  CBBS  Chicago,  IL   #1(312)  545-8086*24 

360-5053  MCMS  C.A.MS.  Chicago,  IL #1&(312)  927-1020*24 

541-2503*24  MCMS  LAMS.  Round  Lake,  IL    (312)  740-9128 

296-5927*24  MCMS  Metro  West  Database,  Chicago,  IL    &(312)  260-0640*24 

248-4539  MCMS  PCM. A.  Wheaton,  IL !&(312)  462-7560*24 

530-0858  MCMS  WACO  Hot  Line,  Schaumburg,  IL Ipvt] (312)4374*24 

960-7654  NET-WORKS  Chipmunk,  Hinsdale,  IL (312)  323-3741*24 

931-3437*24  NET-WORKS  North  Parks,  Chicago,  IL (312)  745-0924 

235-8784*24  NET-WORKS  Pirate's  Ship,  Chicago,  IL (312)  935-2933*24 

769-3036  PBBA  Co-operative  Comp  Svc,  Palatine,  IL (312)  359-9450*24 

644  5197  PET  BBA  Commodore,  Chicago,  IL    (312)  397-0871*24 

644  4781*24  PMS  -  Chicago,  IL (312)  373  8057*24 

239  5842  PMS  -  Downers  Grove/SRT,  Downers  Grove,  IL    (312)  964-6513 

824  7160  PMS  -  I.AC,  Lake  Forest,  IL (312)  295-6926*24 

824  7455  RATS  Homewood,  IL (312)  957-3924 

RCP/M  A  B    Dick  Co.,  N.les,  II   &(312)  647-7636*24 

RCP/M  AIMS  Hinsdale,  IL (312)  789-0499*24 

RCP/M  IBM  PC,  Niles,  IL (312)  259-8086 

RCP/M  Logan  Square,  Chicago,  IL (312)  252-2136 

3388  RCP/M  NEI,  Chicago,  IL (312)949-6189 

398-3937*24  RCP/M  Palatine,  IL &(312)  359-8080*24 

745-7855*24  Scream  Machine (312)  680-9613-so 

1757-3711  ABBS  Detroit,  MI   (313)  477-4471 

729-2769  ABBS  Michigan  Apple-Fone,  Southfield,  MI    (313)  357-1422 

645-0827*24  AMIS  A  R  CA  D  E.  Sterling  Heights,  MI (313)  978-8087*24 

486-4176  AMIS  MA  C  E    Detroit,  MI #1(313)  868-2064*24 

724-2125*24  Apple-Gram    )313)  295-0783*24 

832-8392*24  BBS  Metro  Detroit,  MI    !(313)  455-4227-so 

867-7463*24  BULLET-80  Waterford,  MI (313)  683-5076*24 

529-1113  COMNET-80  Mt    Clemens,  MI &(313)  465-9531 

429-5541  Da*y  Jones  Lcxket       (313)764-1837 

267-7666*24  RCP/M  Detroit,   MI (313)  584-1044-rb 

730-0922  RCPM  MCBBS  Keith  Petersen,  Royal  Oak,  Ml (313)  759-6569-rb 
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RCP/M  MC  BBS  TCBBS  Dearborn,   Ml (313)846-6127*24 

RCP'M   RBBS  Pontiac.  Ml  (313)  338-85?5 

RCP/M  RBBS  Southfield,  MI (313)  559-5326*24 

RCP/M  RBBS  Westland,  Ml (313)  729-1905-rb 

Treasure  Island    (313)  547-7903 

Twil.ght  Phone (313)775-1649*24 

Westside  Download,  Detroit,  Ml (313)  533-0254 

ABBS  Century  Next  Computers.  St    Louis,  MO    (314)  442-6502 

ABBS  St    Louis,  MO (314)  838-7784*24 

Midwest,  St.  Louis,  MO    (314)  227-4312-so 

NET-WORKS  Computer  Station,  St    Louis,  MO (314)  432-7120 

PET  BBS  Commodore  Comm,  Lake  St    Louis,  MO    (314)  625-4576*24 

Greene  Machine,  Rome,  NY !(315)  337-7720 

FORUM-80  Wichita,  KA &(316)  682-2113*24 

NET-WORKS  Greenfield,  IN (317)  326-3833*24 

ONLINE  Indianapolis,  IN.  [ID#-GUES,  pswd-pass] (317)  787-9881*24 

PET  BB A  AVC  Comline,  Indianapolis,  IN (317)  255-5435*24 

PMS  -  Indianapolis,  IN (317)787-5486*24 

FORUM-80  Shreveport,  LA (318)  631  -7107*24 

ABBS  Apple-Med,  Iowa  City,  I A (319)  353-6528 

CBBS  Cedar  Rapids,  IA (319)  364-0811 

NET-WORKS  Computer  City,  Providence,  RI   (401)  331-8450*24 

ABBS  Omaha,  NE (402)  339-7809 

DIAL-YOUR-MATCH  #23,  Omaha,  NE (402)  571-8942-so 

TRADE-80  Omaha,  NE (402)  292-6184 

Lethbridge  Gaming  system,  Lethbridge,  Alta   (403)  320-6923 

RCP/M  RBBS  Computron,  Edmonton,  Alta  ,  Canada (403)  482-6854*24 

RCP/M  RBBS  Edmonton,  Alberta,  Canada &(403)  454-6093*24 

ABBS  #X,  Atlanta,  GA (404)  256-1549 

ABBS  AGS,  Atlanta,  GA (404)  733-3461*24 

ABBS  Baileys  Computer  Store,  Augusta,  GA (404)  790-8614 

BBS  IBM  Hostcomm  Atlanta,  GA !(404)  252-4146 

BBS  IBM  PC  Atlanta,  GA !(404)  252-9438*24 

BBS  IBM  PC  Atlanta,  GA !(404)  294-6879 

BULLET-80  Fayetteville,  GA   (404)  461-9686 

CBBS  Atlanta,  GA    (404)  394-4220*24 

Remote  Northstar  Atlanta,  GA #1(404)  926-4318*24 

Telemassage-80,  Altanta,  GA (404)  962-0616 

HBBS  Oklahoma  City,  OK (405)  848-9329*24 

BBS  IBM  PC  Billing,  MT (406)  656-9624 

AMIS  GRAFEX  Cupertino,  CA (408)  253-5216 

AMIS  IBBBS  San  Jose,  CA (408)  298-6930 

AMIS  T.AB.B.S,  Sunnyvale,  CA (408)  942-6975 

BULLET-80  San  Jose.  CA (408)  241-0769 

NET-WORKS  Computer  Emprium,  San  Jose,  CA (408)  227-0227 

PMS  -  Campbell,  C A   (408)  370-0873*24 

PMS  -  Santa  Cruz,  Aptos,  CA (408)  688-9629*24 

RCP/M  Collossal  Oxgate,  San  Jose,  CA   (408)  263-2588 

RCP/M  RBBS  DataTech  004,  Sunnyvale,  CA (408)  732-2433 

RCP/M  RBBS  San  Jose  Exgate,  San  Jose,  CA    (408)  287-5901*24 

RCP/M  Silicon  Valley,  CA    (408)  246-5014*24 

7  (Western  Massachusetts) (413)  637-3515 

CBBS  PACC.  Pittsburgh,  PA (412)  822-7176*24 

ABBS  Colortron  Computer,  WI (414)  637-9990*24 

Big  Top  Games  System,  Milwaukee,  Wl (414)  259-9475 

CBBS  MAUDE  Milwaukee,  WI (414)241-8364*24 

RCP/M  RBBS  Mike's,  Milwaukee,  WI '(414)  647-0903 

TBBS  Canopus,  Milwaukee,  WI '(414)  281-0545*24 

Vanmil,  Milwaukee,  WI '(414)  271-7580*24 

ABBS  Computerland,  Fremont,  CA (415)  794-9314 

ABBS  Hayward,  CA (415)  881-5662 

ABBS  PCnet,  San  Francisco,  CA (415)  863-4703*24 

ABBS  South  of  Market,  San  Francisco,  CA (415)  469-81 11 -so 

BBS  Living  Videotext,  Menlo  Park,  CA (415)  327-8876*24 

Blue  BOSS  IBM  PC,  Berkeley,  CA (415)  845-9462*24 

CBBS  Lambda,  Berkeley,  CA (415)  658-2919-»o 

CBBS  Promima,  Berkeley,  CA (415)  357-1130 

CONFERENCE-TREE  #3,  Hayward,  CA    (415>  538-3580 

CONNECTION-80  Fremont,  CA (415)  651-4147*24 

DIAL-YOUR-MATCH  #17 (415)  991-4911 

Drummer (415)  552-7671  -so 

PMS  -  Pleasanton,  CA (415)  462-7419*24 

PMS  -  Portola  Valley,  CA (415)  851-3453*24 

RCP/M  RBBS  DataTech  001,  San  Carlos,  CA «1$&(415)  595-0541*24 

RCP/M  RBBS  DataTech  006,  San  Francisco,  CA (415)  563-4953 

RCP/M  RBBS  Larkspur,  CA (415)  461-7726*24 

RCP/M  RBBS  Mann  County,  CA (415)  383-0473*24 

RCP/M  RBBS  Piconet  Oxgate,  Mountain  View,  CA (415)  965-4097*24 

Sunrise  System  Oakland,  CA (415)  452-0350 

System/80  San  Leandro,  CA (415)  895-0699 

BBS  IBM  Hostcomm  Toronto,  Ontario,  CA    '(4  16)  499-7023*24 

BBS  NET  Toronto,  Ontario,  CN (416)  445-6696*24 

KPri,  Toronto,  Ont  ,  CN #1(416)  624-5431*24 

PET  BBS  TPUG,  Toronto,  Ontario,  CN (416)  223-2625*24 

RPC/M  HAPN  Hamilton,  Ontario,  CN (416)  335-6620*24 

RCP/M  Miss.ssauga  HUG,  Toronto,  Ont  ,  CN $&(416)  826-5394*24 


ith,  AK. 


,   VVA  . 


,  TX 


ABBS  ABACUS  11,  Toledo,  OH  ...  . 
ABBS  Computer  Store,  Toledo,  OH 
CONNECTION-80  Little  Rock,  AS 
PMS  -  Ft.  Smith  Comp   Club,  Ft    Sn 

CBBS  NW,  Portland,  OR 

OARCS  Portland,  Oregon    

FORUM-80  Medford,  OR 

PMS  -  Computer  Solutions,  Eugene,  OR   

PMS  -  Portland,  OR 

ABBS  Baton  Rouge,  LA 

CBBS  Baton  Rouge,  LA 

NET-WORKS  Crescent  City,  Baton  Rouge,  LA 
Baton  Rouge  Data  System,  Baton  Rouge.  LA   . 

ABBS  Electro-Mart,  Spokane,  WA      

ABBS  Rob  Roy  Computer,  v 

CBBS  Corpus  Chnsti,  TX 

CONFERENCE-TREE  V.ctor.a,  TX 

FORUM-80  San  Antonio,  TX 

NET-WORKS  Sparklm'  City.  Corpus  < 

Bathroom  Wall  BBS,  San  Antonio,  TX    

SATUC  BBS,  San  Antonio,  TX 

XBBS  Hamilton,  OH 

NET-WORKS  Dayton,  OH 

PMS  -  Cincinnati,  OH 

CONNECTION-80  Laval  BELE,  Laval,  Quebec,  CN  . 
ONLINE  Computerland,  Montreal,  Quebec,  CN  .... 
NET-WORKS  Computer  Emporium,  Des  Moines,  IA 

ABBS  Pirates  Cove,  Long  Island,  NY 

CBBS  LICA  LIMBS,  Long  Island,  NY   

CBBS  Long  Island.  NY 

CONNECTION-80  Centereach,  NY   

CONNECTION-80  Great  Neck,  NY  

NET-WORKS  Pirate's  Trek 

Adventure  BBS    

CONNECTION-80  Lansing,  MI 

Caprtal  City  BBS,  Albany,  NY 

Remote  Apple  Jackson,  MS 

A-C-C-E-S-S  Phoenix,  AZ   

A-C-C-E-S-S  Phoenix,  AZ   

A-C-C-E-S-S  Phoenix,  AZ  

A-C-C-E-S-S  Scotsdale,AZ 

ABBS  Phoenix  [AZ 

CBBS  TSG,  Tucson,  AZ 

FORUM-80  Sierra  Vista,  AZ 

BBS  Apollo,  Phoenix,  AS ! 

CONNECTION-80  Peterborough,  NH 

FORUM-80  Nashua,  NH 

NET-WORKS  Portsmouth,  NH 

Software  Referral  Service 

ABBS  Vancouver,  B  C 

CBBS  Prince  George,  B.C.,  Canada 

RCP/M  CBBS  Frog  Hollow,  Vancouver,  BC.  CN  .  .  .  . 

RCP/M  Terry  O'Brien,  Vancouver,  BC,  Canada 

RCP/M  SJBBS  Johnson  City,  NY   

AMIS  Magic  Lantern,  Madison,  WI 

BBS  IBM  PC  Madison,  WI   

RATS  Wenonah,  NJ  #2   

RATS  Wenonah,  NJ   

ABBS  Calvary  Mission  Church,  Mnpls,  MN 

CONFERENCE-TREE  Minneapolis,  MN 

MCMS  NC  Software,  Minneapolis,  MN 

PMS  -  Minneapol".  MN 

PMS  -  Twin  Cities,  Minneapolis,  MN 

ABBS  Compumart,  Ottawa,  Ontario,  Canada 

BULLET-80  Ironton,  OH 

Applecrackers,  Columbus,  OH 

Ohio  Valley  BBS   

RCP/M  CBBS  Columbus,  OH 

ABBS  Computer  Room,  Kalamazoo,  MI 

AMIS  GRASS   Grand  Rapids,  Ml 

CONNECTIONS-80  W.  Mich.  Micro  Group,  Ml  ...  . 

AMIS  Starbase  12  Philadelphia,  PA  

BULLET-80  Boston,  MA & 

CBBS  Boston,  MA 

CBBS  Lawrence  General  Hospital,  Boston,  MA 

DIAL-YOUR-MATCH  #18 

PMS  -  Apple  Guild,  Weymouth,  MA 

Computer  City,  Danvers,  MA .' .  i 

New  England  COmp.  Soc  ,  Maynard,  MA  

RCP/M  MCBBS  Superbrain,  Lexington,  MA $& 

Visiboard,  Wellesley,  MA   !' 

NET-WORKS  Granite  City,  IL  

NET-WORKS  Warlock's  Castle  St   Louis,  MO < 

CONNECTION-80  Escondido,  CA 

ONLINE  CDC,  San  Diego,  CA 

ONLINE  Saba,  San  Diego,  CA 


865-1594 

531-3845 

372-0576 

646-0197 

646-5510*24 

641-2798 

535  6883*24 


2655*24 

2536 

1360 

3116*24 

C688 

0181 

2419*24 

7704 

1512 

5833 
655-8143 
882-6569 
655-8143 
494-0285 
863-7681*24 
223-3672 
671-2753 
622-1274*24 
931-0458*24 
279-8863 
698-4008 
561-6590*24 
334-3134*24 
588-5836 
8491*24 
627-9048 
621-9296 
339-3367 
346-3596*24 
992-1918*24 
996-9709*24 
957-4428*24 
274-5964 
998-9411*24 
898-0891 
746-3956*24 
458-3850*24 
246-1432*24 
924-7920 
882-5041 
436-3461 
625-1919 
437-7001 
562-9515 
873-4007*24 
584-2543 
797-6416 
251-8538 
262-4939*24 
468-3844 
468-5293 
471-0252-rl 
854-9691 
533-1957*24 
929-6699*24 
929-8966 
725  2243 
532-6920 
475-9791*24 
423-4422 
-2227*24 
-0101 
-1971*24 
-1840*24 
-4885 
266-7789*24 
646-3610*24 
683-2119 
334-6369-so 
767-1303*24 
774-7516 
897-0346 
862-0781*24 
235-5082 
877-2904 
345-6638 
746-6265 
452-6011 
692-1961*24 


272-; 
382 -( 
241- 
457- 
876--! 
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ONLINE  Santee,  CA   UD#GUEST,  pswd-PASS) (619)  561-7271'24 

PMS  -  Computer  Merchant,  San  Diego,  CA (619)  582-9557 

PMS  -  Datel  Systems  Inc.,  San  Diego,  CA !(619)  271-8613*24 

RCP/M  RBBS  San  Diego,  CA    $4(619)  273-4354*24 

PMS  -  EI  Cajon,  CA (619)  579-0553 

PMS  -  Lakeside,  CA  (type  PMS  to  activate) (619)  561-7271*24 

PMS  -  Santee,  CA #1(619)  561-7277*24 

NET-WORKS  Armadillo,  ND  (701 )  746-4959 

FORUM-80  Las  Vegas,  NV (702)  362-3609*24 

SIGNON  Reno,  NV   [pswd-FREEl (702)  826-7234 

ABBS  Software  Sorcery,  Herndon,  VA (703)  471-0610 

BBS  IBM  Hostcomm  Fairfax,  VA   !(703)  425-9452*24 

BBS  IBM  Hostcomm  Fairfax,  VA   !(703)  591-5120*24 

BBS  IBM  Hostcomm  Fairfax,  VA   !(703)  978-0921*24 

£BS  IBM  Hostcomm  Fairfax,  VA   !(703)  978-9592*24 

BBS  IBM  Hostcomm  Springfield,  VA !(703)  425-7229*24 

C-HUG  Bulletin  Board,  Fairfax,  VA (703)  360-3812*24 

Carrier  2  Alexandria,  VA    (703)  823-5210 

Potomac  Micro  Magic  Inc.,  Falls  Church,  VA   (703)  379-0303*24 

RCP/M  CBBS  RLP,  MacLean,  VA    (703)  524-2549*24 

Switchboard,  Alexandria,  VA (703)  765-2161*24 

TCUG  BBS,  Washington,  DC   (703)  836-0384*24 

RCP/M  RBBS  Napa  Valley,  CA (707)  253-1523?? 

Armadillo  Media  Serv.ces,  Houston,  TX (713)  444-7098 

Compuque-80,  Houston,  TX    (713)  444-7041*24 

PMBBS (713)  441-4032 

RCP/M  RBBS  Houston,  TX   (713)  497-5433 

Weekender,  Houston.  TX    (713)  492-8700 

Zachary  *Net,  Houston,  TX (713)  933-7353*24 

IDBN  Info-Net,  Costa  Mesa,  CA    (714)  545-7359 

North  Orange  County  Computer  Club (714)  633-5240 

OCTUG  Orange  County,  Garden  Grove,  CA (714)  530-8226 

Orange  County  Dta  Exchange,  Garden  Grove,  CA (714)  537-7931 

PIG-STY  Costa  Mesa,  CA (714)  545-4648 

RACS  V  Fullerton,  CA    (714)  524-1228 

RCP/M  RBBS  ANAHUC,  Anahe.m,  CA (714)  774-7860*24 

RCP/M  RBBS  GFRN  Dta  Exch.  Garden  Grove,  CA    $&(714)  534-1547*24 

RCP/M  RBBS  Rochester  NY    (716)  223-1100*24 

LITHO/NET (800)  831-6964 

ST80-CC  Lance  Micklus,  Inc    Burlington,  VT.#1 (802)  862-7023*24 

Compusystems,  Columb.a,  SC (303)  771-0922 

NBBS  Norfolk,  V A (804)  444-3392 

RCP/M  RBBS  Grafton,  VA (804)  898-7493 

Remote  Northstar  Virginia  Beach,  VA   (804)  340-5246 

Talk-80  ROBB,  Portsmouth,  VA (804)  484-9636 

RCP/M  Net  Simi  Valley,  C A   (805)  527-9321 

Remote  Northstar  Santa  Barbara,  CA (805)  682-7876 

Remote  Northstar  Santa  Barbara,  CA (805)  964-4115 

Alpha,  Tampa,  FL   [acct#-ABCD00,  pwd-TRYIT](813)  251-4095*24 

Apollo's  Chariot,  Apollo,  FL (813)  645-3669 

BSBB  Tampa,  FL (813)  885-6187 

Bradley  Computer  BBS  (813)  734-7103 

Micro  Informer   (813)  884-1506 

Remote  Northstar  Largo,  FL   (813)  535-9341*24 

TECOM-80  Tampa,  FL   (813)  839-6746 

RCP/M  CUG-NODE,  PA  State  College   (814)  238-4857*24 

TRADE-80  Erie,  PA  (814)  898-2952*24 

PET  BBS  KCPUG,  Kansas  City,  KS (816)  356-2382*24 

BBS  Pensacola,  FL (904)  477-8783 

PMS  -  Anchorage,  AK (907)  344-8558 

Dl AL-YOUR-MATCH  #3 (912)  233-0863-so 

PMS  -  Apple  Bits,  Kansas  City,  MO !(913)  341-3502*24 

PMS  -  Computer  Connection  Kansas  City  MO !(913)  677-1299 

Experimental-80  Kansas  City,  MO (913)  676-3613 

NET-WORKS  ??? (914)  725-4060 

NET-WORKS  Pirate's  Lodge (914)  634-1268 

Nybbles-80  Elmsford,  NY  (914)  592-5385 

OSUNA  Scarsdale,  NY (914)  725-4060 

RACS  #3,  Westchester,  NY   (914)  942-2638 

RCP/M  RBBS  Brewster.  NY (914)  279-5693 

RCP/M  RBBS  Woodstock,  NY (914)  679-8734*24 

RCP/M  SJBBS  Bearsville,  NY (914)  679-6559-rb 

ST60-PBB  Monroe  Camera  Shop,  Monroe,  NY (914)  782-7605 

RCP/M  RBBS  Comp.  Tech.  Assoc.,  El  Paso,  TX (915)  533-2202*24 

RCP/M  RBBS  El  Paso,  TX (915)  598-1668 

HBBS  El  Paso,  TX (915)  592-1910 

Aviators  Bulletin  Board,  Sacramento,  CA (916)  393-4459 

RCP/M  CBBS (916)  483-8718*24 

BULLET-80  Tulsa,  OK (918)  749-0059*24 

CONNECTION-80  Tulsa,  OK (918)  747-1310*24 

DIAL-YOUR-MATCH  #20 (919)  362-0676-so 

FORUM-80  Hull,  England (011)  44  482  059169 

RCP/M  RBBS  Software  Tools,  Australia    (02)  997-1836 

CBBS  London,  England  (European  standard) (044)  1  399-2136 


DATABASES 

Would  you  like  to  know  about  the  latest  ad- 
vances that  doctors  have  made  against  arthritis?  Or 
find  out  how  long  it  takes  to  fly  to  Chicago?  What 
about  the  addresses  of  all  your  competitors'  offices 
in  California?  To  get  the  answers  to  these  and  other 
obscure  questions,  it's  not  necessary  to  live  or 
work  near  a  large  reference  library. 

All  this  information  and  more  is  available 
through  computerized  databases  that  are  accessi- 
ble through  computers  with  modems,  which  allow 
communication  across  the  country  via  phone  lines. 
Indeed,  just  about  everything  that  is  available  in 
print  is  also  available  on  a  database.  There  are  now 
1300  public  databases,  available  to  anyone  willing 
to  pay  to  use  them,  and  at  least  6000  private 
databases  maintained  by  colleges,  trade  associa- 
tions, and  companies. 

Most  databases  provide  abstracts  of  materials 
that  have  already  been  published  elsewhere,  usu- 
ally in  a  journal,  magazine,  newspaper,  or  confer- 
ence proceeding.  A  few  provide  only  citations,  that 
is,  the  names  of  authors,  the  titles,  and  the  publica- 
tions in  which  the  articles  appeared.  However,  it 
has  become  increasingly  popular  for  databases  to 
contain  the  entire  text  of  all  articles. 

The  greatest  advantage  to  the  use  of 
databases,  aside  from  their  ready  availability,  is 
their  indexing  and  cross-referencing  features. 
These  features  enable  you  to  conduct  a  rapid  search 
through  thousands  of  periodicals  and  other  infor- 
mation sources,  spanning  whatever  years  you 
specify,  and  give  you  the  capability  of  finding  an 
article  based  solely  on  the  date  of  publication  or  the 
author's  name.  You  can  often  search  through  "free 
text"— every  word  in  an  abstract  or  article— to  de- 
termine whether  or  not  they  contain  the  words  you 
specify.  These  features  provide  information- 
gathering  capabilities  transcending  those  possible 
or  reasonable  using  a  traditional  approach. 

One  disadvantage  of  databases  is  a  lack  of 
common  indexing  terms  (each  system  has  its 
idiosyncracies).  Another  disadvantage  is  that  they 
may  only  be  searched  one  at  a  time. 

For  a  comprehensive  review  of  over  1,000 
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public  database  systems,  consult  the  OMNI  Online 
Database  Directory,  by  Mike  Edelhart  and  Owen 
Davies,  MacMillian  Publishing  Co.,  1983,  and  read 
the  sampler  of  databases  below. 

A  sampler  of  information  utilities. 

BRS/ After  Dark 

BRS,  1200  Rt.  7,  Latham,  NY  12110;  (800)  833- 
4707.  This  service  offers  electronic  mail,  abstracts 
of  books  and  magazine  articles  in  science,  finance, 
education,  energy,  and  general  reference.  Hours:  6 
P.M.  to  midnight  Monday  through  Friday,  and  all  day 
Saturday  and  Sunday.  Rates:  $6  to  $15  per  hour, 
plus  $50  subscription  fee. 

CompuServe 

CompuServe,  Consumer  Information  Service,  5000 
Arlington  Center  Blvd.,  P.O.Box  20212,  Colum- 
bus, Ohio  43220;  (800)  848-8199  or  (614)  457-0802 
in  Ohio.  This  service  offers  hundreds  of  databases 
for  both  the  consumer  and  business  markets, 
including  news,  entertainment,  electronic  mail, 
programming  languages,  and  user  groups.  Hours: 
24  hours,  7  days.  Rates  $6  to  $12. 50  per  hour,  plus  a 
subscription  fee  of  $19.95  to  $49.95,  depending  on 
where  purchased. 

Delphi 

General  Videotex  Corp.,  3  Blackstone  St.,  Cam- 
bridge, MA  02139;  (617)  491-3393.  This 
consumer-oriented  utility  offers  services  and  in- 
formation similar  to  those  offered  by  The  Source 
and  CompuServe.  Hours:  24  hours,  7  days.  Rates: 
$6  to  $17  per  hour,  and  a  subscription  fee  of  $49. 95. 

Dialog  Information  Retrieval  Service 
Dialog  Information  Services,  Inc.,  3460  Hillview 
Ave.,  Palo  Alto,  CA  94304;  (800)  227-1927,  or 
(800)  982-5838.  This  service  offers  a  large  collec- 
tion of  databases  about  business,  government,  cur- 
rent affairs,  and  the  environment,  among  others. 
Hours:  22  hours,  Monday  through  Saturday.  Rates: 
$15  to  $300  per  hour,  with  no  minimum. 

Dow  Jones  News/Retrieval 

Dow  Jones  and  Company,  P.O.  Box  300,  Princeton, 


NJ  08540;  (800)  257-5114.  This  business-oriented 
service  provides  detailed  financial  information,  in- 
cluding current  and  historical  quotations  from  major 
stock  exchanges,  commodities  prices,  media  gen- 
eral reports,  and  financial  disclosure  details  on 
thousands  of  American  corporations.  Hours:  22 
hours,  7  days.  Rates:  $6  to  $72  per  hour,  plus 
subscription  fees  ranging  from  a  one-time  $50  to 
$50  per  month. 

ITT  Dialcom 

ITT  Dialcom  Inc.,  1109  Spring  St.,  Silver  Spring, 
MD  20910;  (301)  588-1572.  This  service  offers  a 
variety  of  data  bases  with  information  about 
medicine,  government,  energy,  and  travel,  as  well 
as  electronic  mail.  Hours:  24  hours,  7  days.  Rates: 
$11  to  $15  per  hour,  with  a  $100  per  month 
minimum. 

Knowledge  Index 

Dialog  Information  Services  Inc.,  3460  Hillview 
Ave.,  Palo  Alto,  CA  94304;  (800)  528-6050,  ext. 
415  or  (800)  227-1927.  This  service  offers  a  subset 
of  Dialog's  more  consumer-oriented  databases,  in- 
cluding business,  engineering,  psychology, 
magazines  and  computer  information.  Hours:  6 
P.M.  to  5  A.M.  Monday  through  Thursday;  6  P.M.  to 
midnight  Friday;  8  A.M.  to  midnight  Saturday;  and  3 
P.M.  to  midnight  Sunday.  Rates:  $24  per  hour,  $35 
subscription  fee. 

NewsNet 

NewsNet,  945  Haverford  Rd.,  Bryn  Mawr,  PA 
19010;  (800)  345-1301  or  (215)  527-8030.  This  ser- 
vice offers  the  full  text  of  over  100  newsletters  on  a 
variety  of  subjects,  plus  electronic  mail  connections 
with  the  newsletter  publishers.  Hours:  24  hours,  7 
days.  Rates:  $18  to  $24  per  hour,  with  a  $15  per 
month  minimum. 

Nite-Line 

National  Computer  Network,  1929  Harlem  Ave., 
Chicago,  IL  60635;  (312)  622-6666.  This  service 
offers  financial  and  business  databases.  Hours:  24 
hours,  7  days  a  week.  Rates:  $9  to  $20  per  hour. 
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Orbit  Information  Retrieval  System  The  Source 

SDC  Information  Services,  2500  Colorado  Ave.,  Source  Telecomputing  Corp.,    1616  Anderson 

Santa  Monica,  CA  90406;  (800)  421-7229  or  (800)  Road,  McLean,  VA  22102;  (800)  336-3366.  This 

352-6689.  This  service  offers  reference  databases  service  is  a  large  general-interest  utility  offering 

covering  business,  chemistry,  engineering,  elec-  consumer  information,   electronic  mail  and  con- 

tronics,  and  other  fields.  Hours:  22  hours,  Monday  ferencing,  programming  languages,  and  other  ser- 

through  Friday.  Rates:  $40  to  $125  per  hour,  with  a  vices.  Hours:  22  hours,  7  days.  Rates:  $5.75  to 

start-up  fee  of  $125  to  $400,   depending  on  the  $22.75  per  hour,  plus  a  $100  subscription  fee  and  a 

training  requested.  $10  per  month  minimum. 
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Utility  Programs 


Although  your  computer  system  may  not  offer  many 
of  the  useful  features  of  larger  systems,  software 
can  often  be  written  to  simulate  many  of  these 
features.  Such  software  is  often  referred  to  as  utility 
programs.  The  category  of  utility  programs  also  in- 
cludes commonly-used  routines  or  subprograms 
that  can  be  incorporated  in  a  larger  program. 
Through  the  use  of  utility  programs,  your  personal 
computer  can  emulate  its  big  brothers. 

MULTIPURPOSE  PROGRAMS 

Although  some  computer  systems  provide  the 
features  found  below,  others  don't.  The  person  who 
develops  programs  to  perform  these  and  other  util- 
ity functions  will  often  have  a  readily  salable  pro- 
duct. 

•  Diagnostic  programs:  programs  that  test  all  of 
the  statements  and  commands  found  in  given 
BASIC  are  useful  in  determining  whether  or  not 
BASIC  has  loaded  properly  for  execution.  Pro- 
grams to  test  memory  by  filling  and  reading  all 
locations  are  also  helpful. 


•  Memory-map  programs:  a  machine-language 
program  to  output  a  memory  map  would  be  valu- 
able. 

•  Menu  selection  programs:  a  machine-language 
routine  to  automatically  find  and  execute  any 
programs  that  are  on  line  would  make  life  easier 
for  some  operators. 

•  Routines  for  improved  data  file  handling  for 
floppy  disks  or  cassettes  are  needed  for  some 
computers. 

•  Machine  language  programs  that  automatically 
convert  one  cassette/floppy  disk  standard  to 
another  are  needed  by  a  number  of  people. 

•  Variable  list  programs:  a  program  to  output  the 
current  value  and  location  for  all  variables  used  in 
a  program  would  be  useful  in  large-program  de- 
bugging. 

•  Renumber  or  resequence  programs:  a  program  to 
remember  the  statements  in  an  assembly  lan- 
guage program  or  BASIC  program  would  be  a 
convenient  tool  for  programmers. 

•  Base  conversion  programs:  this  kind  of  program 
is  useful  in  assembly  language  programming. 
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•  BASIC  patches  that  allow  commands  such  as 
INKEY$  or  GET,  which  permit  program  inputs 
without  the  pressing  of  the  ENTER  or  RETURN 
key  and  can  limit  the  time  allowed  for  a  response. 

•  Vector  graphic  assembly  language  routines  could 
be  useful. 

•  Cross-assemblers  or  conversion  programs  be- 
tween languages  such  as  BASIC,  FORTRAN, 
and  APL  would  be  a  boon  for  programmers. 

•  Routines  for  handling  fractions  instead  of  deci- 
mals for  greater  precision  in  certain  applications 
could  be  created. 

•  Specialized  compilers  for  BASIC:  although  writ- 
ing a  complete  BASIC  compiler  would  be  dif- 
ficult, specialized  compilers  could  be  written  to 
handle  string,  mathematical,  or  sorting  func- 
tions. The  advantage  is  the  tenfold  or  more  in- 
crease in  execution  speed. 

•  BASIC  patches  to  provide  increased  debugging 
power  could  include  error  simulation  routines  to 
test  a  program  (ERROR(code)  and  ON  ERROR 
GOTO  commands),  TRACE  commands  to  output 
a  listing  of  each  line  number  as  it  is  executed,  and 
powerful  editing  functions. 

•  Memory  routines:  relocating  memory  loaders, 
which  could  be  written  in  extended  BASIC,  could 
combine  two  programs,  add  machine  language 
calls,  and  so  on.  A  memory  dump  program  could 
be  provided  to  output  programs  in  a  variety  of 
formats  (decimal,  hexadecimal,  octal,  and  so  on). 
A  memory  search  program  could  be  used  to  iden- 
tify  all  occurrences  of  a  specific  byte  value  be- 
tween any  starting  and  ending  addresses;  such  a 
program  would  be  useful  in  disassembling  and 
debugging. 

•  AUTO  command:  the  AUTO  command  automati- 
cally provides  line  numbers  when  a  program  is 
being  typed  in. 

•  PLOT  command:  the  PLOT  command  is  useful  in 
automatically  displaying  the  values  of  a  function 
or  given  set  of  data  in  graphical  form. 

•  Multiple-precision  routines:  the  scientific  user  of 
small  computers  (and  some  business  users) 
needs  multiple-precision  capability. 

In  addition,  a  useful  reference  manual  that  in- 


cluded commonly  used  BASIC  or  assembly- 
language  routines  would  simplify  programming  for 
the  beginner. 

UTILITY  SUBROUTINES 

Below  are  some  practical  routines  that  deal 
with  matrices  and  string  manipulation 

Matrix  and  String  Utility  Routines 

100  REM  MATRIX  ADDITION  3-D 

110  FOR  1=1  TO  Nl 

120  FOR  J=l  TO  N2 

130  FOR  K=l  TO  N3 

140  C(K,J,I)=A(K,J,I)+B(K,J,T) 

150  NEXT  K 

160  NEXT  J 

170  NEXT  I 

180  RETURN 


100  REM  MATRIX  TRANSPOSITION  2-D 

110  FOR  1=1  TO  Nl 

120  FOR  J=l  TO  N2 

130  B(J,I)=A(I,J) 

140  NEXT  J 

150  NEXT  I 

160  RETURN 


100  REM  MATRIX  MULTIPLICATION  BY  ONE  VARIABLE 

3-D 

110  FOR  1=1  TO  N3 

120  FOR  J=l  TO  N2 

130  FOR  K=l  TO  Nl 

140  B(K,J,I)=A(K,J,I)*X 

150  NEXT  K,J,I 

160  RETURN 


100  REM  MATRIX  INPUT  ROUTINE  3-D 

110  FOR  1=1  TO  Nl 

120  PRINT"PAGE";I 

130  FOR  J=l  TO  N2 
140  PRINT"INPUT  ROW"; J 
150  FOR  K=l  TO  N3 
160  INPUT  X(I,J,K) 
170  NEXT  K,J 
190  PRINT 
200  NEXT  I 
210  RETURN 
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100  REM  MATRIX  INPUT  SUBR0UTINE(TW0 

DIMENSION) 
110  FOR  H=l  TO  N 
120  PRINTMENTER  ROW";H 
130  FOR  1=1  TO  Nl 
140  INPUT  X(H,I) 
150  NEXT  I,H 
160  RETURN 


100  REM  MATRIX  PRINT  SUBROUTINE  3-D 

110  FOR  1=1  TO  Nl 

120  FOR  J=l  TO  N2 

130  FOR  K=l  TO  N3 

140  PRINT  X(I,J,K), 

150  NEXT  K 

160  PRINT 

170  NEXT  J 

180  PRINT 

190  NEXT  I 

200  PRINT 

210  RETURN  READY 


200  REM  MATRIX  READ  FROM  DATA  STATEMENTS  IN 

3-D 

210  FOR  1=1  TO  Nl 

220  FOR  J=l  TO  N2 

230  FOR  K=l  TO  N2 

240  READ  X(J,K,I) 

250  NEXT  K,J,I 

260  RETURN 

270  DATA: REM  DATA  INSERTED  HERE 


100  REM  MAT=ZER  MATRIX  SET  TO  ZERO  SUBROUTIN 

E  3-D 

110  FOR  1=1  TO  Nl 

120  F0RJ=1  TO  N2 

130  F0RK=1  TO  N3 

140  X(K,J,I)=0 

150  NEXT  K,J,I 

160  RETURN 


1000  REM  INSTRING  SUBROUTINE 

1010  FOR  1=1  TO  LEN(X$)-LEN(Y$)+1 

1020  IF  Y$=MID$(X$,I,LEN(Y$))  THEN  RETURN 

1025  PRINT  Y$ 

1030  NEXT  I 

1040  RETURN 


Among  the  different  sorting  routines  listed 


here,  the  Quicksort  is  the  most  efficient  although  it 
requires  more  BASIC  program  lines  than  some  of 
the  other  sorts  require.  The  Bubble  sort  is  the  least 
efficient: 

Sorting  Routines 

I     REM     IMPROVED    R1PPL.E    SORT    ROUTINE 


D    iJii-! 


:  1 2  > 


10    FOR    N-l     TO     10 

20     INPUT    A'iN) 

ZO    NEXT 

1.1.0    D=0:N  =  N™-1 

.1  20     IF    |\!==0    GOTO    200 

130    FOR     I--=l     TO    N 

.1  40     IF    A(  I  )     -A  -:  I  f  1  )     THEN     130 

150     I-A( I ) 

160    A  (  I  )  =-A  (  I  i-l  ) 

170    A(I+1)-T 

17?    C>1 

180    NEXT     I 

170     IF    0-1     THEN     110 

200    FOR    N  =  2.    TO     1  1 

210    PRINT    A(N) ; 

220    NEXT 


100  REM  BUBBLE   SORTING   ROUTINE 

110  FOR    1=1   TO  N-l 

120  FOR   J=I+1   TO   N 

130  IF   A(T)<=A(J)THEN    170 

140  T=A(I) 

150  A(I)=A(J) 

160  A(J)=T 

170  NEXT   J 

180  NEXT    I 


50  PRINT   "ALPHABETIZING   PROGRAM" 
60  REM  OUTPUTS  LISTING  ONLY    (DOESN;T  REAR- 
RANGE MEMORY) 
110  DIM  A$(100),N$(100) 
120  FOR  N=l   TO    1000 
130   INPUT   "W0RD";N$(N) 
140   IF  N$(N)="STOP"  THEN    160 
150  NEXT   N 
160   REM 

170  FOR    1=1   TO   N 
180  A$(I)=N$(I) 
190   NEXT   I 
195  K=0 
200   1=1 

210  FOR  J=2  TO  N 

220  IF  A$(T)<A$(J)  THEN  GOTO  230 
225  I=J 
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230  NEXT  J 

240  IF  N$(I)="ST0P"  THEN  250 

245  PRINT  N$(I) 

250  A$(I)="ZZZ" 

260  K=K+1 

270  IF  K=N  THEN  280 

275  GOTO  200 

280  PRINT:PRINT 

290  END 

5  REM  SHELL-METZNER  SORT 

10  P=N:REM  N=NUMBER  OF  DATA  ELEMENTS  IN  D( ) 

20  P=INT(P/2) 

30  IF  P=0  THEN  RETURN: REM  ARRAY  NOW  SORTED; 

RETURN  TO  MAIN  PROGRAM 

40  K=N-P:J=1 

50  I=J 

60  L=I+P 

70  IF  D(I)<D(L)  THEN  100 

80  T=D(I):D(I)=D(L):D(L)=T:I=I-P 

90  IF  I>=1  THEN  60 

100  J=J+1 

110  IF  J<=K  THEN  50 

120  IF  J>K  THEN  20 


5  REM  QUICKSORT 

6  REM  N=NUMBER  OF  ERTFI  ELEMENTS  IN  D' 

7  H=10 

1  O  X-0  ■  I  ~>W,  '3  '.'.  I  +  1  )  =  j.  :  S  (.   I  +  2  >  ==H  '  >\~X+  1 

20  IF  ;«;=0  THEM  RETURN 

25  IF  tf-0  THEN  GOTO  170 

30  X-tt- 1  ■  I  ==,W=:  ■  fl=S  •:;  I  +  ].  ;.  :  E~S  '•  I  +2 ::» 

40  z=d<r:>  :tp:=fmei=e+i 

50  E1==E1~1 

60    IF    E1=TF   THEN    110 

70    IF   ZOIKEl>    THEN   50 

75    IF   Z>IKE1>    THEN    IKTP^IKEl ) 

SO   TF=TF+1 

30  IF  B1=TF  THEN  118 

1O0  IF  Z>=IKTF::'  THEN  SO 

105  IF  ZCIKTP)  THEN  IK  El  )-Ii(TF)'  GOTO 

110  IKTF>=Z 

1 20  I F  E-TF>=2  THEN  I  "V,  K<  ■  S  ( I  + 1  ;<  =TF-i- : 

N-N+l :S(I+2)=E 

1 30  IF  El -fl>=2  THEN  I  ^N+N ;  S '•  I  + 1  > :^H  :  N::: 

:sa+2>-Ei-i 

140  F^PH  ■00T025 

150  for  ;*;~i  to  3-vgo^a$.-i  :nent 

160  G0SUE5 

170  FOR  tf-1  TO  :?•  PRINT  ECO  .:  ■  NEXT 


50 


;=■■■: +i 
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Chapter  1 1 


Miscellaneous  Applications 


There  are  a  number  of  applications  that  don't  fit 
easily  in  the  categories  already  covered.  These 
applications  will  be  discussed  in  this  final  chapter. 

COMPUTERS  AND  THE  HUMANITIES 

Amateur  as  well  as  professional  scholars  of 
history,  language,  literature,  anthropology,  ar- 
cheology, and  other  fields  of  the  humanities  may 
find  personal  computers  useful  in  storing,  organiz- 
ing, analyzing,  and  indexing  data. 

History 

The  historian  may  wish  to  encode  information 
of  the  following  types  for  use  with  computers: 

1.  Census  records 

2.  Congressional  voting  records 

3.  Election  statistics 

4.  Court  records  and  decisions 

5.  Ship  sailing  records  — historical,   ge- 

neological,  and  economic  significance. 

6.  Diplomatic  records 

7.  Journalism  statistics.   A  school  of  jour- 


nalism has  used  a  personal  computer  to 
record  and  plot  the  ratios  of  column  inches 
devoted  to  various  political  parties  or  can- 
didates in  fifteen  major  national  newspa- 
pers, under  the  assumption  that  the  amount 
of  text  space  allotted  to  a  candidate  or  party 
reflects  the  paper's  views.  You  or  your  or- 
ganization may  wish  to  pursue  similar  lines 
of  research. 

Language 

The  microcomputer  can  be  used  to  deal  with 
languages  in  at  least  two  ways. 

Translations.  It  is  possible  to  program  a  per- 
sonal computer  to  act  as  a  crude  translating 
machine,  capable  of  recognizing  foreign  vocabulary 
words  and  providing  the  English  equivalent.  Sen- 
tence structure  and  overall  meaning  are  much  more 
difficult  to  program,  however,  and  are  a  current 
area  of  research  in  computer  science.  The  pocket 
translating  machines  and  spelling-checker  pro- 
grams available  today  may  serve  as  models  for  such 
a  program,  which  may  provide  an  interpretable  En- 
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glish  equivalent  to  a  given  foreign  phrase.  For 
example,  if  provided  with  the  Spanish  phrase, 
"Mucho  gusto  en  conocerlo"  (Pleased  to  meet  you), 
the  literal  computer  translation  may  read,  "Very 
much  in  to  meet  you."  A  more  sophisticated  pro- 
gram could  check  for  idiomatic  expressions  such  as 
this  and  provide  a  better  translation.  A  translating 
program  may  prove  to  be  educational  and  useful  to 
those  with  a  minimum  of  familiarity  with  a  lan- 
guage. 

Compilation  of  dictionaries.  The  dialects 
and  languages  of  a  speech  community  can  be  en- 
tered into  a  computer  database  for  ease  in  compiling 
a  dictionary. 

Literature  and  Writing 

There  are  a  number  of  ways  in  which  you  can 
use  your  personal  computer  to  help  you  in  your 
writing  and  in  analyzing  literature. 

Auto-editor.  A  personal  computer  program 
capable  of  performing  basic  editing  functions  has 
been  developed.  The  program  balks  at  overly  long 
sentences,  or  stilted,  cumbersome  expressions  and 
suggests  alternatives.  For  instance,  it  will  suggest 
"absolutely"  for  "categorically,"  and  "by"  or 
"under"  instead  of  "in  accordance  with."  It  pro- 
poses "now"  instead  of  "at  this  point  in  time. "  It  can 
detect  spelling  errors,  improper  punctuation,  split 
infinitives,  and  other  common  grammatical  errors. 

Thesaurus.  An  on-line  thesaurus  can  provide 
rapid,  time-saving  access  to  alternative  word 
choices.  This  feature,  in  conjunction  with  a  word 
processor,  can  serve  as  a  powerful  writing  tool. 

Automatic  table  of  contents/index  gen- 
eration. In  preparing  a  text  on  a  word  processor, 
the  author  need  only  flag  with  a  special  code  the 
keywords  to  be  indexed  or  the  chapter  headings  for 
the  table  of  contents.  The  computer  will  compile 
and  alphabetize  these  entries  in  desired  form. 

Writer's  outline  utility.  A  specialized  word 
processor  with  database  capabilities  could  assist 
the  writer  in  preparing  outlines. 

Spelling  checker.  Numerous  spelling 
checker  programs  are  available  for  personal  com- 
puters. These  are  capable  of  checking  documents 


for  errors  on  the  basis  of  30,000-90,000  stored 
words.  The  user  has  the  option  of  adding  or  deleting 
words,  and  special  dictionaries  are  available  (for 
example,  medical  terms). 

Analysis  of  literature.  Computers  can  be 
used  to  prepare  statistical  analyses  of  literature 
that  you  have  typed  using  your  word  processor. 
Such  a  program  would  calculate  the  number  of  lines, 
number  of  sentences,  number  of  words,  number  of 
syllables,  average  word  length,  average  sentence 
length,  and  the  reading  level  based  upon  any  of  the 
standard  formulas  developed  by  Flesch,  Fog, 
Raygor,  Dale  Chall,  or  Spache.  For  instance,  the 
Fog  index  (Fl)  is  given  by 


FI  = 


total  no. 
words 

total  no. 
sentences 


no.  "hard" 
words  x  100 

total  no.  words 


x  4 


where  "hard"  words  are  considered  to  be  those 
words  with  three  or  more  syllables,  except  proper 
names,  compounds  of  short  words  (for  example, 
down-and-out),  and  words  in  which  the  third  sylla- 
ble ends  in  es  or  ed  (for  example,  arrested).  If  the 
value  of  FI  is  20  or  more,  you  should  consider  the 
reading  level  advanced  or  difficult.  To  ensure  that 
your  message  gets  across  to  the  masses,  aim  for  a 
FI  of  around  10.  A  concordance  table,  listing  all 
words  used  and  their  absolute  or  relative  frequency 
of  use  can  also  be  constructed;  the  list  can  be  sorted 
alphabetically  or  by  frequency.  See  Microcomput- 
ing, page  60,  June  1981  for  a  sample  BASIC  pro- 
gram. Word-class  distribution  statistics,  measures 
of  redundancy  of  vocabulary  (averages,  medians, 
and  so  on),  numbers  of  modifiers,  adverb/verb  and 
auxiliary  verb/verb  ratios,  clause  length  statistics, 
distribution  of  clause  types  (simple,  compound 
subject,  and  so  on),  distribution  of  sentence  open- 
ers (prepositional  phrase,  subordinated  clause,  and 
so  on),  and  style  of  sentence  structure  could  also  be 
analyzed  by  a  more  complex  program. 

Along  similar  lines,  computers  have  been  used 
to  statistically  determine  whether  works  of  indefi- 
nite authorship  are  typical  of  a  given  writer  (for 
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example  works  by  Bacon  and  Shakespeare  are  com- 
pared), since  the  above  statistical  parameters  tend 
to  remain  constant  for  one  writer  and  may  be  com- 
pared with  the  figures  for  other  writers. 

Literature  Database.  A  specialized  data- 
base could  store  important  manuscripts  and  be  used 
to  index,  cross  reference,  and  find  given  keywords 
or  phrases  quickly.  QWIK-Indexes™  may  also  be 
generated. 

AID  TO  THE  HANDICAPPED 

Use  of  microcomputers  as  aids  to  the  hand- 
icapped is  a  very  important  and  useful  application; 
only  the  forefront  has  been  explored,  and  the  po- 
tential is  tremendous.  Examples  of  this  application 
include  the  following: 

The  computer  can  act  as  a  "robot"  for  the 
handicapped.  One  system  was  used  by  a  paraplegic 
to  communicate  with  others;  the  computer  scanned 
the  alphabet  and  once  a  particular  letter  was 
reached,  the  patient  would  make  a  certain  move- 
ment to  signal  that  that  letter  was  to  be  typed  out.  In 
this  manner,  words  and  sentences  were  produced. 

Voice  synthesizers  and  decoders  are  espe- 
cially helpful  for  those  who  cannot  interact  with  a 
computer  through  a  video  terminal. 

A  computer  with  a  printer  (either  dot  matrix  or 
daisy-wheel  type)  could  be  used  to  convert  inputted 
text  into  braille.  Each  line  of  text  would  be  reversed 
in  computer  memory  and  the  braille  equivalent 
(composed  of  periods  or  dots)  printed  in  its  mirror 
image.  By  turning  over  the  output,  the  impressions 
left  by  the  printer  will  form  braille  text. 

The  personal  computer  could  be  used  to 
monitor  people  who  are  chronically  ill,  are  predis- 
posed to  suffer  heart  attacks,  or  are  in  other  life 
threatening  situations.  Twice  a  day  the  patient 
would  be  required  to  input  something  into  their 
computer;  if  they  don't,  medical  personnel  would 
be  alerted  by  telephone  dialing  and  vocal  output 
peripherals. 

Other  areas  in  which  the  microcomputer  can 
help  the  handicap  include  the  following: 

•  Sensory  enhancement  or  translation:  clarification 
of  audio  or  visual  information  or  translation  of 


video  information  to  and  from  audio  information. 

•  Manipulator  controls:  powered  prostheses  or 
robots  for  individuals  with  severe  motor  impair- 
ment. 

•  Information  amplification  for  the  motion  im- 
paired: increase  the  amount  of  information  that 
can  be  relayed  with  a  given  number  of  key- 
strokes, for  example,  a  shorthand  translator,  as 
described  in  the  first  chapter. 

•  Recreation  and  development  aids:  games  and 
educational  programs  allowing  handicapped  per- 
sons a  reliable  means  to  control,  explore,  and 
manipulate  objects  or  learn  about  them. 

•  Communication  aids:  telephone  dialers,  com- 
puter-aided writing  and  filing  systems,  and  phone 
communication  through  the  use  of  speech  syn- 
thesizers, for  example. 

•  Security/monitoring  systems:  mechanisms  for 
controlling  locks  and  windows,  emergency  call 
systems,  medication  reminders,  and  monitoring 
systems  that  will  periodically  demand  a  response 
and  signal  if  the  individual  fails  to  answer  its 
queries. 

•  Information  resource/management:  inability  to 
quickly  manipulate  and  scan  materials  may  pre- 
vent the  handicapped  from  making  effective  use 
of  dictionaries,  phone  lists,  calendars,  filing 
systems,  and  books.  These  functions  can  be  par- 
alleled through  the  use  of  specifically  designed 
microcomputer-based  interfaces  that  work  with 
residual  physical  and  sensory  capabilities. 


TEST  YOUR  TYPING  SPEED 

Those  learning  to  type  will  appreciate  a  mea- 
surement of  their  progress  in  speed.  A  program  to 
test  typing  speed  would  have  to  be  written  in  as- 
sembly language  if  your  BASIC  doesn't  provide 
INKEY$,  GET,  ENTER  (or  RETURN)  or  WAIT 
type  commands. 

MAINTENANCE  OF 
ORGANIZATION  RECORDS 

Clubs  and  other  organizations  may  find  it 
worthwhile  to  purchase  or  use  a  member's  small 
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computer  to  ease  paperwork.  Anyone  who  develops 
software  for  this  application  may  be  able  to  sell  it  to 
local  organizations  or  charge  for  computing  ser- 
vices done  on  his  own  computer. 

CO-OP  SCHEDULING  AND  FINANCES 

A  computer  analysis  of  costs  and  duties  could 
help  divide  these  responsibilities  fairly  between 
members  of  communal  residence  or  cooperative 
organizations.  A  duty  roster  in  calendar  form  as 
well  as  a  financial  summary  of  amounts  owed  could 
then  be  printed  out. 

TAILOR'S  CALCULATIONS 

Alterations  to  dress,  suit,  and  other  patterns 
for  "tailor-made"  clothing  could  be  mathematically 
determined  by  your  computer.  If  you  have  a  printer 
with  a  line  length  large  enough,  the  altered  pattern 
could  be  printed  in  actual  size. 

PHONE  CODE 

A  relatively  simple  program  could  be  written 
to  produce  a  listing  of  all  the  possible  letter  combi- 
nations on  the  phone  dial  for  a  given  phone  number. 
Businessmen  may  use  this  listing  to  find  an  appro- 
priate, easy-to-remember  word  representing  their 
phone  number  (for  example,  a  computer  store 
number  was  266-7883  and  COMPUTE  was  the  cor- 
responding telephone  word).  An  interesting  word 
may  appear  for  you  to  use  with  your  home  phone. 

BRAINSTORMER 

A  few  years  ago,  a  large  sphere  containing 
thousands  of  plastic  squares  with  a  different  word 
printed  on  each  was  sold  as  a  "brainstormer."  The 
idea  behind  the  device  was  to  rotate  the  sphere,  mix 
up  the  words,  and  then  peek  through  a  window  at 
whatever  words  appeared.  From  this  combination 
of  adjectives  and  nouns,  the  user  was  to  come  up 
with  a  new  invention  or  idea.  The  "brainstormer" 
could  be  useful  in  stimulating  ideas;  for  instance,  if 
the  words  television  and  game  appeared,  a  properly 
prepared  mind  could  have  made  the  intuitive  leap  to 
invent  video  games.  You  could  create  your  own 
computerized  "brainstormer"  by  programming  a 


large  array  of  nouns  and  adjectives  with  a  random 
number  generator  that  calls  them  to  the  video 
screen  5-10  at  a  time. 

A  similar  program  could  be  called  an  "idea 
stimulator."  Instead  of  miscellaneous  words  ran- 
domly appearing,  a  special  set  of  adjectives  or 
phrases  describing  possible  improvements  to  an 
invention  would  appear  individually  and  in  random 
order  on  the  screen.  For  instance,  if  you  were 
trying  to  invent  a  new  type  of  cooking  pot  and  the 
word  slower  appeared,  the  brainstormed  idea  might 
be  a  slow  crockpot  cooker.  The  list  of  brainstorm- 
ing questions  below  could  be  randomly  arranged  by 
your  computer  and  individually  called  to  the  screen. 

Brainstormer  programs  needn't  be  limited  to 
products  and  inventions.  Choreographer  Merce 
Cunningham,  Mozart,  Oscar  Wilde,  and  cartoonist 
Sergio  Alverez,  among  others  in  the  arts,  have 
reported  using  similar  random  methods  as  an  ap- 
proach to  artistic  creation.  One  cartoonist  reports 
use  of  a  computer  program  to  randomly  mix  cliches, 
locations,  props,  and  various  character  types  for 
possible  cartoon  ideas. 


Brainstorm  Chart  for 

Products,  Processes,  or  Services 

In  what  other  way  can  it  be  made  more  effec- 
tive? 

Is  there  a  surer  way  to  do  it? 

Is  there  a  cleaner,  neater  way  to  do  it? 

Is  there  a  more  comfortable  way  to  do  it? 

Is  there  a  more  healthful  way  to  do  it? 

Is  there  a  safer  way  to  do  it? 

Is  there  a  more  durable  form? 

Is  there  a  more  pleasant  way  to  do  it? 

Is  there  a  quicker  way  to  do  it? 

Is  there  an  easier  way  to  do  it? 

In  what  other  way  can  it  be  improved? 

Can  the  package  be  improved? 

Can  the  distribution  methods  be  improved? 

Can  it  be  made  disposable  or  portable? 

Can  a  combination  with  other  devices  be  de- 
vised. 

Can  something  be  added  to  enhance  its  value? 

Can  it  be  adapted  to  some  other  use? 
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Is  there  a  way  to  increase  its  usefulness;  can  it 

become  multipurposed? 
Can  it  be  made  more  attractive? 
Is  there  a  cheaper  way  to  do  it? 
Can  a  similar  result  be  obtained  in  any  other 

way? 

Inventor's  Idea  Stimulator 

The  program  in  Listing  11-1  can  be  very  useful 
to  those  who  have  a  creative  and  intuitive  mind.  A 


large  list  of 'idea  words"  are  shuffled  and  displayed 
three  at  one  time.  The  object  is  to  apply  your 
thinking  to  these  words  in  relation  to  another  idea. 
For  example,  if  you  had  to  design  a  new  product, 
such  as  a  cigarette  lighter,  and  the  word  disposable 
appeared,  the  idea  of  a  disposable  lighter  would 
come  to  you. 

SOURCE  INDEX 

Addresses  of  manufacturers,  institutions,  or- 


Listing  11-1:  The  Inventor's  Idea  Stimulator  Program 

50  PRINT  "INVENTOR'S  IDEA  STIMULATOR" 

51  DIM  A$(98),M(98) 

60  PRINT  "THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  SUM-" 
65  PRINT  "ULATE  YOUR  CREATIVE  THINKING  WHEN  WORK-" 
70  PRINT  "ING  ON  AN  INVENTION  OR  PRODUCT.   " 
75  PRINT  "A  SERIES  OF  THREE  WORDS  WILL  BE  PRINTED" 
80  PRINT  "FOR  YOU  TO  CAREFULLY  CONSIDER.   TRY  TO" 
85  PRINT  "APPLY  THEM  TO  YOUR  INVENTIVE  PROCESS." 

90  PRINT  "FOR  EXAMPLE  IF  YOU  WERE  TRYING  TO  DE-" 

91  PRINT  "VELOP  A  PRODUCT  TO  IMPROVE  OFFICE" 

92  PRINT  "COMMUNICATIONS  AND  THE  WORD  'EFFICIENT'" 

93  PRINT  "APPEARED,  YOU  MIGHT  THINK  OF  A" 

94  PRINT  "DICTATING  MACHINE,  ETC.": INPUT  "PRESS  'RETURN'  WHEN  READY" ;A$ 

95  FOR  X=l  TO  96: READ  A$(X):NEXT  X 
120  N=98:F0RI=1  TO  N 

130  M(I)=I:NEXTI 

140  FOR  1=1  TO  N-l 

150  R=(N+1-I)*RND(0) 

170  R=INT(R)+1 

180  T=M(R) 

190  M(R)=M(I) 

200  M(I)=T 

210  NEXT  I 

220  PRINT  "PRESS  'RETURN'  WHEN  FINISHED  WITH  EACH" 

225  PRINT  "WORD  SET" 

230  FOR  X=l  TO  33  STEP  3 

240  PRINT  A$(M(X)) 

250  PRINT  A$(M(X+1)) 

260  PRINT  A$(M(X+2)) 

270  INPUT  B$ 

280  NEXT  X 

290  END 

300  DATA  LARGER, SMALLER, LONGER, SHORTER, THICKER, THINNER, DEEPER, SHALLOWER 

305  STAND  VERTICALLY/HORIZONTALLY, MAKE  SLANTED  OR  PARALLEL 

310  DATA  STRATIFY , I NVERT  , CONVERGE , ENCIRCLE , INTERVENE , DELINEATE , BORDER 

315  DATA  MORE, LESS, CHANGE  PROPORTIONS , FRACTIONATE , JOIN  SOMETHING 

320  DATA  ADD  SOMETHING , COMBINE , COMPLETE, CHANGE  ARRANGEMENT , FASTER 

325  DATA  SLOWER, LAST  LONGER , CHRONOLOGIZE, MAKE  PERPETUAL, SYNCHRONIZE 

330  DATA  RENEWABLE , ALTERNATING , STIMULATED , ENERGIZED , STRENGTHENED 

335  DATA  LOUDER, LESS  NOISE, COUNTERACTING , STRONGER, WEAKER , ALTERED 

340  DATA  CONVERTABLE ,  SUBSTITUTED ,  INTERCHANGED ,  STABILIIZED ,  REVERSED , RESILIENT 

345  DATA  UNIFORM, CHEAPER  ,  ADD/CHANGE  COLOR, IRREGULAR  DESIGN 
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350  DATA  CURVED  DESIGN , MODERN  DESIGN , HARDER, SOFTER, SYMMETRICAL, NOTCHED 

355  DATA  ROUGHER , SMOOTHER , DAMAGE  AVOIDED, DELAYS  AVOIDED 

360  DATA  THEFT  A VOIDED, ACCIDENTS  PREVENTED, CONFORMABILITY, ANIMATED 

365  DATA  STILLED, DIRECTED  MOTION  , ATTRACTED/REPELLED  MOTION  , LOWERED 

370  DATA  BARRED ,  OSCI LLATED ,  AGITATED ,  HOTTER ,  COLDER ,  OPEN  ABLE ,  PREFORMED 

375  DATA  INCORPORATED  , SOLIDIFIED  , LIQUIFIED, VAPORIZED 

380  DATA  PULVERIZED ,  ABRADED ,  LUBRICATED , WETTER ,  DRYER ,  INSULATED ,  EFFERVESCED 

385  DATA  COAGULATED, ELASTICIZED, RESISTANT, LIGHTER, HEAVIER 

390  DATA  FOR  MEN /WOMEN /CHILDREN , FOR  ELDERLY/HANDICAPPED, FOREIGN  MARKETING 

395  DATA  DISPOSEABLE 


ganizations,  and  other  sources  of  information  or 
products  can  be  stored  in  computer  form  and  in- 
dexed for  future  reference.  Any  source  of  informa- 
tion or  materials  that  you  don't  have  use  for  at 
present,  yet  know  you  may  need  in  the  future, 
should  be  stored  (for  example,  manufacturers  and 
suppliers  of  peripherals  for  your  system).  These 
sources  can  be  indexed  under  the  material  they  can 
provide. 

PEOPLE  MATCHING 

At  a  party  or  other  social  gathering  it  is  often 
best  to  make  arrangements  so  that  those  who  are 
most  similar  will  meet  each  other.  Recently  at  a 
convention,  a  microcomputer  was  used  to  create 
special  name  cards  for  each  guest.  Everyone  who 
attended  had  previously  filled  out  a  questionnaire 
indicating  his  or  her  occupation,  hobbies,  age,  sex, 
likes  and  dislikes,  and  so  on.  This  data  was  input  to 
the  computer,  which  subsequently  produced  a  spe- 
cial name  card  with  differently  colored  dots  on  it  for 
each  individual.  Each  color  indicated  a  specific 
characteristic  of  that  person,  and  thus,  the  guests 
could  instantly  find  others  who  had  the  same  color 
dots  and  thus  the  characteristics  as  themselves. 

Computers  have  prepared  seating  charts  for 
dinners,  arranged  blind  dates,  matched  carpools, 
and  paired  athletes  according  to  individual  charac- 
teristics (partner  or  opponent  matching).  A  bulletin 
board  service  for  modem  owners  called  Dial- 
Your-Match  (213)  842-3322  allows  computer  dating 
for  the  would-be  romantic. 

An  interesting  people  matching  game  would 
ask  participants  to  rank  their  ideals.  The  list  of 
common  ideals  below  could  be  used  for  that  pur- 
pose. 


1.  Active  and  satisfying  life 

2.  Active  and  satisfying  athletic  life 

3.  Power  over  things  (for  example,   au- 
tomobiles, boats,  and  computers) 

4.  Socially  significant  activity 

5.  Good  health 

6.  Opportunities  for  risk  and  adventure 

7.  Resilience  (ability  to  "bounce-back") 

8.  Prestigious  family  life 

9.  Artistic  ability 

10.  Ability  to  initiate  and  maintain  friendships 

11.  Intellectual  ability 

12.  Ability  to  draw  love  from  others 

13.  Ability  to  influence  others  with  your  ideas 

14.  Ability  to  be  a  caring  person 

15.  Ability  to  give  love 

16.  Close  and  supportive  relationships 

17.  Intellectual  stimulation 

18.  Approval  by  opposite  sex 

19.  Wealth 

20.  Ability  to  be  self-sufficient 

21.  Physical  attractiveness 

Each  participant  could  rank  each  item  in  terms 
of  its  importance  to  him  or  her.  Next,  everyone 
would  be  allotted  a  certain  number  of  tokens  to  use 
in  bidding  for  the  items  of  the  most  importance  to 
themselves.  Participants  will  realize  what  is  of  the 
most  significance  in  their  life  and  that  of  others. 

Similarly  two  or  more  players  could  rank  1) 
what  I  think  I  am,  2)  what  the  other  player  thinks  I 
am,  and  3)  what  the  other  player  thinks  I  think  I  am 
(and  2  and  3  for  the  other  player)  for  these  charac- 
teristics: aggressive,  dependent,  enthusiastic,  in- 
telligent, honest,  humorous,  jealous,  kind,  rude, 
sensitive,    sensual,   and  sociable.   The  personal 
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computer  would  then  compare  and  correlate  re- 
sponses in  a  useful,  insightful  way. 

On  a  more  personal  basis,  programs  have  been 
written  to  first  determine  the  "personality"  makeup 
of  a  couple  and  then  suggest  an  appropriate  "inter- 
lude." This  is  not  a  children's  game  and  is  an  appli- 
cation to  be  used  at  your  own  risk. 

Along  similar  lines,  your  local  organization  or 
business  could  use  a  computer  car-pool  matching 
program  if  there  are  many  people  involved. 

GREETING  CARD  PRODUCER 

Some  clever  hobbyists  have  written  programs 
to  produce  assorted  types  of  greeting  cards,  an- 
nouncements, and  invitations  on  their  printers.  One 
example  is  shown  in  Fig.  11-1.  The  cards  can  be 
personalized  and  can  make  use  of  computer  art.  One 
hobbyist  uses  his  computer  and  printer  to  produce 
Christmas  gift  wrapping  paper  by  printing  designs 
of  Christmas  trees,  snowflakes,  and  other  patterns. 

CONTESTS 

For  those  who  take  sweepstakes  seriously,  a 


personal  computer  can  be  used  to  fill  out  multiple 
contest  entry  forms  with  name,  address,  and  addi- 
tional information  required.  One  group  of  com- 
puterists  entered  a  large  national  contest  a  few 
years  ago,  using  a  computer  to  print  10,000  entry 
forms;  they  won  over  90%  of  the  prizes.  As  a  result, 
many  contests  now  require  hand-printed  entry 
forms.  However,  peripherals  are  now  available  that 
can  duplicate  your  handwriting  or  signature  using  a 
programmable  "mechanical  writing  arm."  Technol- 
ogy marches  onward. 

HANDWRITING  ANALYSIS 

Many  major  corporations  are  now  using  hand- 
writing analysis  as  one  instrument  to  evaluate 
prospective  employees,  although  its  usefulness 
remains  controversial.  The  gaudy  carnival  "hand- 
writing analysis  computers"  do  litte  more  than 
printout  a  random  evaluation,  as  handwriting 
analysis  is  still  on  the  cutting  edge  of  computer 
science.  However,  a  relatively  simple  program 
could  printout  the  standard  interpretations  for 
handwriting  characteristics  after  these  have  been 
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Fig.  11-1.  A  computer  generated  greeting  card. 
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encoded  by  an  expert.  Such  a  program  could  elimi- 
nate the  drudgery  of  writing  an  explanation  for  each 
characteristic  and  could  check  for  conflicting  or 
concording  results. 

FIFTY  MISCELLANEOUS  APPLICATIONS 

To  further  exemplify  the  scope  of  applications 
of  personal  computers  in  all  walks  of  life,  I  have 
listed  some  of  the  more  unusual  uses  readers  have 
contributed: 

•  Design  and  animation  of  marching  band  patterns. 

•  Maintenance  and  inventory  of  equipment  and  in- 
struments in  small  laboratories. 

•  Membership  tracking  for  small  organizations 
with  the  addition  of  dues  accounting,  question- 
naire analysis,  and  mailing  list  capabilities. 

•  TV  pattern  generator  for  electronic  technicians. 

•  Artistic  pacifier  for  toddlers  based  on  random 
graphical  patterns,  as  a  form  of  the  stimulation 
necessary  for  the  development  of  a  normal  IQ. 

•  Banner  and  sign  generator  to  prominently  display 
your  message,  created  on  ordinary  lineprinters. 

•  Posters  and  calendars  from  lineprinter  output. 

•  Translations  of  foreign  words  done  by  portable 
computers  for  travelers  (or  for  educational  pur- 
poses). 

•  Analysis  of  the  cost-saving  benefits  of  various 
solar  collector  designs. 

•  Calculation  of  home  improvement  costs  by  de- 
termining gallons  of  paint,  rolls  of  wallpaper,  or 
square  yards  of  carpeting  for  a  given  job. 

•  Car  maintenance  reminder  for  routine  tuneups 
and  parts  replacement  according  to  miles  driven. 

•  Car  pool  record  keeping  program  which  records 
car  usage  by  driver,  destination,  and  date  with 
the  ability  to  print  schedules  for  each  member. 

•  Bendo  Kagawa,  a  Zen  priest  in  Japan,  uses  his 
personal  computer  to  help  people  meditate. 

•  Bob  Waltz's  personal  computer  at  Smithers- 
Oasis  can  tell  you  all  you  ever  wanted  to  know 
about  germanium  growing. 

•  Three  Harvard  professors  writing  a  physiology 
text  use  their  personal  computers  to  exchange 
chapters  by  phone. 


•  Edward  Adler  arranged  for  his  computer  to  rock 
his  baby's  cradle  every  time  she  cried. 

•  Architects  can  sketch  new  designs  on  personal 
computers  that  rival  design  systems  formerly 
costing  in  the  millions. 

•  For  training  purposes,  companies  are  now  using 
personal  computers  to  instruct  employees  in  ev- 
erything from  advanced  optics  to  photocopier  re- 
pair. 

•  A  psychologist  is  using  his  computer  to  teach 
people  self-relaxation  techniques  and  self- 
hypnosis. 

•  Earth,  Wind,  and  Fire  use  a  computer  to  set  off 
flash  pots  and  explode  small  bombs  on  stage  dur- 
ing their  pyrotechnic  rock  performances. 

•  A  German  firm  is  using  a  personal  computer  to 
create  new  sweater  patterns. 

•  Daryl  Faud's  personal  computer  sifts  through 
hundreds  of  bacterial  strains  to  assist  in  recom- 
binant DNA  experiments. 

•  Dr.  Terry  Pundiak  uses  a  voice  interface  with  his 
computer  to  give  antismoking  lectures. 

•  Experimental  systems  that  are  being  developed 
to  read  ordinary  text  to  the  blind  are  based  on 
personal  computers. 

•  Boy  Scouts  across  the  nation  are  using  personal 
computers  for  help  in  earning  the  Computer 
merit  badge. 

•  Dr.  Michael  Lamb  has  adapted  his  personal  com- 
puter for  anesthesia  monitoring  during  surgery. 

•  Colossal  Pictures  Corporation  used  a  personal 
computer  to  create  the  title  sequences  for  The 
Black  Stallion  and  One  From  The  Heart. 

•  Psychologist  John  McPhee  developed  a  program 
to  analyze  Rorschach  Inkblot  Tests  on  his  per- 
sonal computer. 

•  The  Sports  Car  Club  of  America,  San  Francisco 
office  uses  a  PC  personal  computer  to  track  race 
results  instantly. 

•  David  Curtis  turned  his  personal  computer  into  a 
lie-detector  and  analysis  machine. 

•  One  hobbyist  creates  personalized  Christmas 
letters  by  using  a  word  processor,  cutting  the 
time  required  in  half. 

•  A  bar-code  reader  allows  a  hobbyist  to  rapidly 
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input  information  concerning  supermarket  items 
purchased.  A  pantry  inventory  can  easily  be 
created. 

•  One  thrifty  personal  computer  owner  devised  a 
program  to  randomly  match  each  person  in  his 
extended  family  for  exchange  of  gifts. 

•  One  family  uses  their  system  as  a  message  board 
to  store,  word-process,  and  display  messages  to 
other  family  members. 

•  Traveling  salesmen  use  their  portable  computers 
to  maintain  expense  accounts. 

•  One  hobbyist  created  a  "drunkometer"  program 
to  evaluate  residual  cognitive  function  in  those 
smashed  by  alcohol. 

•  A  nighttime  and  vacation  check-off  program  to 
remind  the  hobbyist  that  nights  and  vacations 
exist  for  a  purpose  and  to  ensure  that  all  neces- 
sary duties  have  been  taken  care  of  could  be  a 
godsend  to  obsessive  programmers. 

•  A  citrus  grower  uses  his  personal  computer  to 
continuously  monitor  temperature  and  soil  con- 
ditions to  alert  him  of  changes  and  automatically 
control  heaters  and  sprinklers. 

•  An  instrumentalist  uses  his  personal  computer  to 
accompany  him  on  the  flute. 

•  A  wrestling  coach  no  longer  tussles  with  the 
problem  of  pairing  500  boys  by  age  and  weight; 
he  uses  his  personal  computer. 

•  A  personal  computer  owner  about  to  marry 
created  a  database  to  map  out  chapel  seating  for 
100  wedding  guests  and  table  arrangements  for 
220  lunch  guests  and  to  do  tabulations  on  no- 
shows.  He  is  also  keeping  a  record  of  those  who 
give  gifts  and  what  they  send. 

•  A  new  minister  was  given  information  concerning 
the  personal  and  familial  problems  of  his  flock 
stored  in  a  database  created  by  the  retiring 
minister. 

•  Chicago  Alderman  Lawrence  Bloom  keeps  a 
database  of  6,000  voters  on  his  computer.  Pre- 
cinct workers  can  make  personalized  calls  and 
say  "Alderman  Bloom  helped  you  get  rid  of  that 
abandoned  car.  Now  he  needs  your  help." 

•  Carter  Scholz  used  his  personal  computer  to 
compute  the  lengths  of  a  set  of  tuned  wind 
chimes. 


•  The  Osvoz  family  of  New  York  use  their  personal 
computer  to  maintain  database  of  family  medical 
information,  including  blood  types,  allergies, 
dates  of  checkups,  poison  antidotes,  eyeglass 
prescriptions,  insurance  policies,  checkup  re- 
minders, height,  and  weight. 

•  Professionally-prepared  programs  are  available 
to  plan  a  vacation  trip  for  you,  given  the  starting 
point  and  the  destination;  miles,  costs,  routes, 
and  itinerary  can  be  computed  automatically. 

•  Dave  Adams,  a  businessman,  uses  his  personal 
computer  with  a  modem  to  access  on-line  airline 
schedules  and  make  reservations.  The  Source 
and  CompuServe,  among  other  networks,  offer 
this  service. 

•  Automotive  expense  records,  including  the  fol- 
lowing information,  may  be  tracked  using  your 
personal  computer:  loan  or  lease  payment  rec- 
ords, accumulated  gasoline  costs,  MPG  average, 
maintenance  and  repair  records,  insurance 
records,  depreciation,  automotive  tax  deduct- 
ibles, and  accumulated  cost  per  mile  to  operate. 

•  Bill  Strozier  uses  his  personal  computer  to  oper- 
ate a  passive  solar  heating  system  in  his  home. 
The  computer  controls  the  opening  and  closing  of 
movable  partitions  and  shades  and  an  air  circula- 
tion system.  Other  personal  computer  owners 
have  controlled  active  solar  heating  collectors, 
directed  air  or  liquid  to  areas  where  it  was 
needed,  and  analyzed  the  performance  of  the 
system. 

•  One  hobbyist  uses  a  program  to  organize  his 
elaborate  home  workshop;  he  maintains  a  tool 
and  equipment  inventory  and  lists  of  parts  and 
supplies,  projects  completed,  and  future  projects 
(with  tentative  starting  dates). 

•  Bird  watcher  Edward  Mair  uses  a  personal  com- 
puter to  store  his  lifetime,  year,  state,  property, 
and  feeder  lists  and  for  exchanging  information 
with  other  birdwatchers  across  the  nation  via  a 
network. 

•  Several  executives,  computer  programmers,  and 
writers  can  now  do  their  work  at  home,  rather 
than  traveling  to  the  office,  thanks  to  personal 
computers  linked  with  their  company's  computer 
via  modems. 
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Appendix 

Software  Source  Books 


The  books  and  magazines  listed  below  are  the  most  popular 
guides  to  microcomputer  software  available  for  popular 
brands  of  home  computers.  For  many  of  the  applications 
discussed  in  this  book,  there  is  a  professionally  designed 
program  available  and  listed  in  the  guides  below. 


The  Addison -Wesley  Book  of  Apple  Software  $19.95 

Addison-Wesley 
The  Addison-Wesley  Book  of  ATARI  Software  $19.95 

Addison-Wesley 
Big  Blue  Book  for  the  Apple 

Scribner 
Big  Blue  Book  for  the  ATARI 

Scribner 
Big  Blue  Book  for  the  Commodore 

WIDL  Video 
Big  Blue  Book  for  the  IBM  PC 

WIDL  Video 
The  Buyer's  Guide  to  Software  for  the  IBM  PC 

Byte/McGraw-Hill 
Commodore  Software  Encyclopedia 

Howard  Sams  and  Co. 
CP/M  Software  Finder  $14.95 

Que  Corporation 
IBM  PC  Expansion  and  Software  Guide 

Que  Corporation 


VanLoves  Apple  ll/HI  Software  Directory  $24.95 
Van Loves 

PUBLISHER'S  ADDRESSES 

Addison-Wesley  Publishing  Co. 
Jacob  Way 
Reading,  MA  01 867 

Byte/McGraw-Hill 

1221  Avenue  of  the  Americas 

New  York,  NY  10020 

Howard  Sames  &  Co. 
4300  W.  63rd  St. 
Indianapolis,  IN  46268 

Que  Corporation 
7960  Castleway  Dr. 
Indianapolis,  IN  46250 

Charles  Scribner's  Sons 

597  Fifth  Ave. 

New  York,  NY  10017 

WIDL  Video 

5245  W.  Diversey  Ave. 

Chicago,  IL  60639 


MICROCOMPUTER  MANUFACTURERS 


Access  Matrix  Corp. 

2159  Bering  Drive 
San  Jose,  CA  95131 

Albert  Computers 

3170  Los  Feliz  Drive 

UnitC 

Thousand  Oaks,  CA  91362 

Alspa  Computer 

300  Harvey  West  Blvd 
Santa  Cruz,  CA  95060 


Altos  Computer  Systems,     Athena  Computer 


2641  Orchard  Park  Way 
San  Jose,  CA  95134 


Apple  Computer 

20525  Mariani  Drive 
Cupertino,  CA  95014 

Atari  Products 

Box  50047 

San  Jose.  CA95150 


31952  Camino  Capistrano 
San  Juan  Capistrano,  CA 
92675 

Basis.  Inc. 

5435  Scotts  Valley  Dnve 
Scotts  Valley,  CA  95066 

Canon  USA 

One  Canon  Plaza 

Lake  Success.  NY  11042 


Casio.  Inc. 

15  Gardner  Rd. 
Fairfield.  NJ  07006 


Coleco  industries 

945  Asylum  Ave. 
Hartford.  CT  06105 

Columbia  Data  Products 

8990  Route  108 
Columbia.  MD  21045 
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Commodore  Business  Mach. 

1 200  Wilson  Drive 
West  Chester,  PA  19380 

Compaq  Computer  Corp. 

20333  FM  149 
Houston.  TX  77070 

CompuPro 

Box  2355 

Oakland  Airport,  CA  94614 

Computer  Devices.  Inc. 

25  North  Ave. 
Burlington,  MA  01803 

Cromemco,  inc. 

280  Bernado  Ave. 

Box  7400 

Mountain  View,  CA  94039 


Qavilan  Computer  Corp. 

240  Hacienda  Ave. 
Campbell,  CA  95008 

Gifford  Systems 

1922  Republic  Ave. 
San  Leandro.  CA  94577 

Heath  Company 

Benton  Harbor.  Ml  49022 

Hewlett-Packard 

1000  NE  Circle  Blvd. 
Corvallis,  OR  97330 


Hitachi  Saies  Corp. 

West  Artesia 
Compton,  CA  90220 


Morrow  Designs 

600  McCormick  St. 
San  Leandro,  CA  94577 

Multitech  Electronics 

195  West  El  Camino  Real 
Sunnyvale,  CA  94086 

NEC  Home  Electronics 

1401  Estes  Ave. 

Elk  Grove  Village,  IL  60007 

NEC  Information  Syst. 

5  Militia  Drive 
Lexington,  MA  02173 

Netronics  Research 

333  Litchfield  Rd. 
New  Milford.  CT  06776 


Sord  Computer 

200  Park  Ave 

New  York,  NY  10166 

Spectravideo 

39  W.  37th  St. 

New  York,  NY  10018 

Sumlcom  inc. 

17862  East  17  St. 
Tustin,  CA  92680 

TeleVideo  Systems 

1 1 70  Morse  Ave 
Sunnyvale,  CA  94086 

Texas  Instruments 

Box  53 

Lubbock,  TX  79408 


Digital  Equipment  Corp. 

2  Mount  Royal  Ave. 
Box  1008 
Maynard,  MA  01752 

Docutel  Olivetti  Corp. 

155  White  Plains  Rd. 
Tarrytown,  NY  10591 

Durango  Systens 

3003  North  First  St. 
San  Jose,  CA  95134 

Dynalogic  Info-Tech  Corp. 

8  Colonnade  Road 
Ottawa,  CANADA,  K2E  7M6 

Eagle  Computer,  Inc. 

983  University  Ave. 
Los  Gatos,  CA  95030 

Epson  America 

3415  Kashiwa  St. 
Torrance,  CA  90505 

Formula  International 

12603  Crenshaw  Blvd. 
Hawthorne,  CA  90250 

Franklin  Computer  Corp. 

2138  Route  38 
Cherry  Hill,  NJ  08002 

Fujitsu  Microelectronics 

3320  Scott  Blvd. 
Santa  Clara,  CA  95051 


Honeywell,  Inc. 

200  Smith  St. 
Waltham.  MA  02154 

IBC 

21592  MarillaSt. 
Chatsworth,  CA  91311 

IBM 

Box  1328 

Boca  Raton.  FL  33432 

IMS  International 

2800  Lockheed  Way 
Carson  City,  NV  89701 

Intertec  Data  Systems 

2300  Broad  River  Rd. 
Columbia,  SC  29210 

Ithaca  Intersystems 

200  E.  Buffalo,  Box  91 
Ithaca,  NY  14851 

Kaypro  Division 

PO  Box  N 

Del  Mar,  CA  92014 

LNW  Research  Corp. 

2620  Walnut 
Tustin,  CA  92680 

Mattel  Electronics 

5150  Rosecrans  Ave 
Hawthorne,  CA  90250 


North  Star  Computers 

4440  Catalina  St. 
San  Leanaro.  CA  94577 


Osborne  Computer  Corp. 

26538  Danti  Court 
Hayward,  CA  94545 

Panasonic  Co. 

One  Panasonic  Way 
Secaucus,  NJ  07094 

Radio  Shack 

One  Tandy  Center 
Fort  Worth,  TX  76102 

Sage  Computer  Tech. 

35  North  Edison  Way,  Suite  4 
Reno,  NV  89502 

Sanyo 

51  Joseph  St. 
Moonachie,  NJ  07074 

Seequa  Computer  Corp. 

209  West  St. 
Annapolis,  MD  21401 

Sharp  Electronics 

10  Sharp  Plaza 
Paramus,  NJ  07652 

Sony 

Sony  Drive 

Park  Ridge,  NJ  07656 


Tlmex  Computer 

Box  1700 
Waterbury,  CT  06721 

Toshiba  America 

2441  Michelle  Dr. 
Tustin,  CA  92680 

Unitronics 

40 T  Grand  Ave. 
Suite  350 
Oakland,  CA  94610 

Vector  Graphic,  Inc. 

500  North  Ventu  Park 

Rd. 

Thousand  Oaks,  CA 

91320-  2798 

Video  Technology 

2633  Greenleaf  Ave. 
Elk  Grove,  IL  60007 


Wang  Laboratories 

One  Industnal  Ave. 
Lowell.  MA  01851 


Xerox  Corp. 

1341  West  Mockingbird 

Lane 

Dallas,  TX  75247 


Zenith  Data  Systems 

1000  North  Milwaukee 

Ave 

Glenview,  IL  60025 
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Glossary 


address— The  location  in  memory  where  a  given 
binary  bit  or  word  of  information  is  stored. 

alphanumeric— The  set  of  punctuation,  letters  of 
the  alphabet,  and  numerical  characters  used  for 
computer  input. 

analog/digital  (A/D)  conversion— An  A/D 
converter  measures  incoming  voltages  and  out- 
puts a  corresponding  digital  number  for  each 
voltage. 

ASCII— The  American  Standard  Code  for  Infor- 
mation Interchange. 

assembly  language— A  low  level  symbolic  pro- 
gramming language  that  comes  closest  to  pro- 
gramming a  computer  in  its  internal  machine 
language.  Instead,  machine  language  code  is 
represented  by  mneumonics. 

binary— The  number  system  of  base  two,  which 
has  two  symbols,  1  and  0,  representing  the  on 
and  off  states  of  a  circuit. 

bit— One  binary  digit. 

byte— An  assembly  of  eight  bits  representing  a 
computer  word.  The  memory  capacity  of  a  com- 
puter is  usually  measured  in  terms  of  bytes. 

chip— An  integrated  circuit. 

compiler— A  program  that  converts  the  program 
statements  of  a  high-level  language  into  machine 
codes  for  execution. 

CPU  (Central  Processing  Unit)— The  major  op- 
erations center  of  the  computer  where  decisions 
and  calculations  are  made. 

data— Computer-coded  information. 

data  rate— The  amount  of  information  (data) 


transmitted  through  a  communication  line  per 

unit  of  time. 
debug— Remove  program  errors  (bugs)  from  a 

program. 
digital— A  circuit  that  has  only  two  states,  on  and 

off,  and  is  usually  represented  by  the  binary 

number  system. 
disk— A  memory  storage  device  that  makes  use  of 

a  magnetic  disk. 
DOS— Disk  operating  system;  allows  the  use  of 

general  commands  to  manipulate  data  stored  on 

a  disk. 

firmware— Software  permanently  stored  in  a 
computer  using  a  read-only-memory  (ROM)  de- 
vice. 

floppy  disk— See  disk. 

flowchart— A  diagram  of  the  various  steps  to  be 
taken  by  the  computer  in  running  a  program. 

hardware— The  manufactured  equipment  of  a 
computer  system,  as  opposed  to  the  programs 
for  a  computer. 

hexadecimal— A  base  sixteen  number  system 
often  used  in  programming  in  assembly  lan- 
guage. 

input — Information  (data)  fed  into  the  computer. 

input/output  (I/O)  devices  — Peripheral 
hardware  devices  that  communicate  with  or  re- 
ceive communications  from  the  computer. 

interface— A  device  that  converts  electronic  sig- 
nals to  enable  two  devices  to  communicate  with 
each  other;  also  called  a  port. 

interpreter— A  program  that  accepts  one  state- 
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ment  of  a  high-level  language  at  a  time,  converts 
that  statement  to  machine  language,  and  pro- 
ceeds to  the  next  statement.  BASIC  is  a  high- 
level  language  that  is  usually  an  interpreter 
rather  than  a  compiler. 

keyboard— A  series  of  switches,  usually  in  the 
form  of  a  typewriter  keyboard,  which  a  computer 
operator  uses  to  communicate  with  the  com- 
puter. 

languages— The  sets  of  words/commands  that 
are  understood  by  the  computer  and  used  in 
writing  a  program. 

loop— A  portion  of  a  program  that  is  to  be  repeated 
(looped)  several  times. 

machine  language— The  internal  low-level  lan- 
guage of  the  computer. 
mainframe— Referring  to  the  hardware  of  the 

central  processing  unit  (CPU). 
memory— Data  (information)  stored  for  future 

reference  by  the  computer  in  a  series  of  bytes. 
microcomputer— A  miniaturized  small  computer 

containing  all  the  circuitry  of  a  "minicomputer" 

on  a  single  integrated  circuit  chip. 
microprocessor— The  single  integrated  circuit 

chip  that  forms  the  basis  of  a  computer  (the 

CPU). 
mnemonic— An  abbreviation  or  word  that  stands 

for  another  word  or  phrase. 
modem— A  peripheral  device  that  converts  digital 

signals  to  audio  and  vice-versa. 
MPU-See  CPU. 

octal— A  base  eight  number  system  often  used  in 


machine  language  programming. 
opcode— An  operation  code  signifying  a  particular 
task  to  be  done  by  the  computer. 

parallel  port— A  data  communication  channel  that 
uses  one  wire  for  each  bit  in  a  single  byte. 

peripherals  — Input/output  devices  such  as 
printers,  mass  storage  devices,  and  terminals. 

program— A  set  of  instructions  for  accomplishing 
a  task  that  the  computer  understands. 

RAM  (random  access  memory)— Memory  de- 
vices from  which  data  can  be  procured  or  in 
which  data  can  be  stored  by  the  computer. 

ROM  (read  only  memory)— Memory  devices 
from  which  data  may  be  procured  only;  the 
memory  contents  may  not  be  changed. 

RS232— A  standard  form  for  serial  computer  in- 
terfaces. 

serial  communication— A  method  of  data  com- 
munication in  which  bits  of  information  are  sent 
consecutively  through  one  wire. 

software— Computer  programs,  instructions,  and 
languages. 

statement— A  single  computer  instruction. 

subroutine  —A  smaller  program  (routine)  within  a 
larger  program. 

terminal— An  input/output  device  using  a 
keyboard  and  video  or  printer  display. 

TVT— A  television  typewriter,  or  computer  termi- 
nal. 

word— A  basic  unit  of  computer  memory  usually 
expressed  in  terms  of  a  byte. 
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Index 


Accounting  systems,  business,  67 
Accounting,  personal,  55 
Activity  ratios,  37,  38 
A/C  Voltage  Divider  Program,  119 
Advantages  of  computers  in  educa- 
tion, 125 
Adventure  games,  157,  184 
Advisor,  game,  183 
Air  Conditioning  Program,  1 1 1 
Alarm  systems,  201 
Amateur  radio,  151 
Anagram  Creator  Program,  180 
Analog  to  digital  converter,  207 
Analysis,  statistical,  87 
Annuities,  54 
Answering  machine,  12 
Answering  service,  60 
Antenna  design,  118 
Aphorism  Generator  Program,  142 
Applications,  futuristic,  211 
Applications,  miscellaneous  236 
Appraisal  tabulator,  61 
Aquarium  maintenance,  156 
Artistic  patterns,  103 
Arts,  musical,  142 
Arts,  verbal,  141 
Arts,  visual,  135 
Astrology,  155 
Astronomy,  152 


Astronomy  Demo  Program,  152 
Aviation,  112 

B 

Banking  at  home,  59 

Barometric  conditions,  106 

Biorhythms,  155 

Black  Sheep  game,  159 

Blood  Alcohol  Content  Program,  20 

Board  display,  183 

Board  games,  1 58 

Bonds,  31,  54, 

Bookkeeper,  183 

Books,  personalized,  61 

Bowling  league  bookkeeping,  61 

Brainstorming,  232 

Breakeven  analysis,  66 

Bridge-it  game,  160 

Business  accounting  system,  67 


Calculation  of  the  Number  of  Days 
BetweenTwo Dates  Program,  73 
Calculations,  business,  67 
Calculator,  79 
Calculus,  computer,  98 
Capital  equipment  investment,  71 
Car,  trading  in,  14 
Card  Shuffling  Routine,  195 
Car  maintenance,  21 


Carpenters'  helper,  21 

Cash  flows,  64 

Categorizer  Program,  9 

Categorizer  Subroutine,  9 

Categorizing  Information,  9 

Change  distribution,  34 

Chemical  engineering,  123 

Chemistry,  113 

Chess,  189 

Chess-related  programs,  194 

Civil  engineering,  123 

Climate  control,  201 

Clock,  20 

Collections,  151 

Collection  service,  61 

Company  growth  rates,  39 

Composition,  music,  143 

CompuServe  subject  index,  214 

Computer  assisted  instruction,  127 

Computer-intelligence  games,  182 

Contests,  235 

Contract  preparation,  71 

Control,  house,  201 

Control  systems,  use  of,  204 

Countdown  game,  168 

Coupon  file,  19 

Critical  path  analysis,  13 

Cross  Capture  game,  161 

Crossword  poetry,  137 

Curve  fit,  64 
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Customer  file  management,  69 


Daily  Interest  Savings  Program,  56 
Database  management  system  uses, 

29 
Database  Program,  24 
Databases,  23,  221 
Database  searching,  36 
Dating  service,  60 
Day  of  the  Week  Program,  18 
Days  between  two  dates,  72 
Dealers,  dedicated  hardware,  204 
Dealers,  household  control  devices, 

203 
Dealers,  robots,  209 
Decision  maker,  13 
Decision  making  in  business,  65 
Depreciation  calculations,  53 
Depreciation  Method  Comparison 

Program,  54 
Device  controller,  external,  205 
Dialer,  12 

Distributions,  statistical,  86 
Diving,  scuba,  155 
Drawing,  perspective,  139 
Drawing,  programs,  184 
Drinks,  1 1 ,  20 


Editing,  60 

Educational  applications,  125 

Educational  programs,  61 

Electric  Cost  Analysis  Program,  1 1 1 

Electrical  engineering,  114 

Electronic  Memorandum  Program,  2 

Employment  agency,  60 

Energy  consumption,  15 

Energy  efficiency  computation,  107 

Engineering  applications,  114 

Equation  of  a  line,  97 

Equations,  simultaneous,  94 

Exercises,  15 

Experimental  applications,  164 

External  device  controller,  205 


Fields  of  data,  23 
Films,  animated,  150 
Filter  design,  1 15 
Filters,  formulae  for,  115 
Finance,  31 

Financial  databases,  45 
Financial  formulae,  46 
Financial  ratio  analysis,  36 
Financing  requirements,  66 
Finder's  fees,  60 
Fishing,  154 
Food  shopping  aid,  19 
Formulae,  financial,  46 
Formulae,  loan,  53 


Formulae  for  filters,  115 
Fundamental  analysis,  32 
Future  value  of  an  investment,  44 


Gambling,  60,  154 

Games,  157 

Games,  mathematical,  101 

Gardening,  153 

Gas  Guzzler  Program,  14 

Geneological  storehouse,  156 

General  CAI  Program,  127 

Greeting  card  list,  12 

Greeting  card  producer,  235 

Growth  Rate  Calculator  Program,  40 

H 

Handicapped,  aid  for,  231 

Handwriting  analysis,  235 

Health,  personal,  15 

Hexpawn  game,  166 

History,  229 

Hobbies,  149 

Home  banking,  59 

Home  location,  13 

Home  planning,  19 

Home  swapping,  60 

Hot  game,  160 

House  Heating  Program,  109 

Household  control  devices,  203 

Humanities  and  computers,  229 

I 

Income  tax,  57 

Index  to  library,  5 

Indexing,  60 

Inflation  rate,  44 

Information  utilities,  222 

Integral  evaluation,  95 

Interest  calculations,  47 

Internal  Rate  of  Return  Program,  64 

Inventors  Idea  Stimulator  Program, 

233 
Inventory  control,  66 
Inventory  management,  71 
Inventory  of  possessions,  1 7 
Investment  analysis,  44 
Investment  applications,  39 
Investment  decisions,  31 
Investments,  31 
Invitation  list,  12 
Itinerary  assistant,  1 1 


J 


Jam  game,  159 


Kaleidoscope  programs,  184 
Keywords,  2 
Kitchen  inventory,  17 


Language,  229 

Letters,  business,  72 

Leverage  ratios,  37,  38 

Library  index,  5 

Life  Expectancy  Calculation  Program, 

21 
Life  game,  102 

Line  Equation  Calculator  Program,  97 
Liquidity  ratios,  37,  38 
Literature,  230 
Literature,  index  to,  18 
Loan  Amortization  Program,  50 
Loan  formulae,  53 
Loans,  49 

Logic  circuit  analysis,  120 
Logic  Circuit  Analysis  Program,  121 
Logic  games,  159 
Low-Pass  Filter    Design    Program, 

115 
Lunar  Landing  Simulation   Program, 

129 

M 

Machine  design,  123 

Magic,  182 

Mailing  list,  69 

Mailing  lists,  60 

Manufacturers,  microcomputer,  239 

Marine  navigation,  112 

Marked  Square  Game,  168 

Mathematical  functions,  plotting,  95 

Mathematical  functions  in  the  arts,  1 35 

Mathematics,  91 

Matrix  routines,  226 

Mechanics'  helper,  21 

Medical  calculations,  113 

Message  system,  201 

Microcomputer  manufacturers,  239 

Mill  game,  168 

Minimum  investment,  48 

Model  building,  155 

Modems,  12,  213 

Money-making  applications,  59 

Mortgages,  48 

Mortgage  Schedule  Program,  49 

Moving  Average  Calculator  Program, 

33 
Multiplication  Drill  Program,  132 
Multipurpose  programs,  225 
Music,  204 
Music  education,  142 
Music  Program,  145 

N 

Navigation,  1 12 
Network  Design  Program,  116 
Networking,  213 
Networks,  local,  218 
Networks,  major,  214 
Neutron  game,  166 
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Nim  Program,  163 
Nim  variations,  165 
Nutrition  15 


Order  processing,  69 


Pascal's  art,  103 

Patterns,  textile,  139 

Payroll,  71 

People  matching,  234 

Personal  accounts  receivable/ 

payable,  55 
Personality  Test  Program,  197 
Personal  reference  source,  1 
PERT,  13 
Photography,  149 
Physics,  114 

Pi  Calculation  Program,  100 
Planning,  house,  19 
Plotter  Program,  95 
Points,  52 

Polynomial  Evaluation  Program,  92 
Portfolio  beta,  44 
Portfolio  management,  32 
Predicting  results  of  sporting  events, 

99 
Price  indexes,  34 
Price/volume  trace,  34 
Private  information  20 
Probabilities,  102 
Professional  practice  management, 

71 
Professions,  75 
Profitability  ratios,  37,  39 
Programming  challenges,  99 
Psychic  programs,  155 
Pulse  Rate  Program,  16 


Quizzes,  179 


Radio,  amateur,  151 

Raffle  tickets,  21 

Railroading,  model,  155 

Random  Access  Sample  Routine,  5 

Random  art  patterns,  136 

Rate  of  change,  34 

Rating  calculations,  17 

Ratio  analysis,  36 

Ratio  relationships,  34 

Ratios,  37 

Real  estate,  61 

Real  Estate  Evaluation  Program,  62 

Recipe  Calculator  Program,  10 

Recipe  index,  10 

Record  keeping,  231 

Recreational  vehicles,  155 


Recreations,  computer,  189 
Recreations,  mathematical,  99 
Reference  information,  1 
Reference  Table  Program,  74 
Rental  locator,  60 
Resumes,  60 
Retirement  planning,  59 
RL  Equivalent  Impedance  Program, 

119 
Robots,  personal,  209 
Robotwar  II  Program,  186 
RPN  calculator,  79 
RPN  Calculator  program,  81 


Sales,  69 
Scheduling,  232 
Schematics  for  filters,  1 1b 
Securities,  31 
Services,  60 
Shorthand  translator,  16 

Short-term  insolvency,  43 

Simple  Song  Transformation  Pro- 
gram, 148 

Simulation  games,  184 

Simulations,  educational  128 

Simulations,  large  scale,  131 

Simultaneous  Equation  Solver  Pro- 
gram, 94 

Software,  choosing  for  educational 
use,  126 

Software  source  books,  239 

Sorting  routines,  227 

Source  index,  233 

Source  subject  index,  216 

Sourcebooks,  software,  239 

Specialized  Word-Processor  Pro- 
gram, 7 

Speed  Reading  Program,  133 

Sports,  153 

Sports  predictions,  60 

Spreadsheets,  electronic,  65 

Star  Fight  Program,  169 

Statistical  Analysis  Program,  87 

Statistics,  85 

Stock  alpha  and  beta,  43 

Stock  market,  59 

Stock  Option  Analysis  Program,  41 

Stocks,  31 

Story  writer,  1 81 

Strategy  games,  1 58 

String  utility  routines,  226 

Subject  index,  the  Source,  216 

Subject  interest,  CompuServe,  214 

Sundial  design,  107 

Sundial  Design  Program,  108 

Sunrise  and  sunset,  155 

Supermarket  comparison,  61 

Surveying  calculations,  113 

Synthesizers,  computer  controlled, 
149 


Systems,  small  business,  61 


Tailors  calculations,  232 

Tax  planning,  58 

Teaching  program,  131 

Technical  analysis,  32 

Telephone  Call  Timer  Program,  1 1 

Telephone  code,  232 

Telephone  numbers,  local  networks, 
219 

Temperature  Humidity  Index  Pro- 
gram, 107 

Terminal  programs  214 

Textile  Generator  Program,  129 

Three  Dimensional  Plotter  Program, 
135 

Tic-tac-toe  games,  1 62 

Tides,  155 

Time  calculations,  73 

Time  Difference  Program,  73 

Time  management  system,  13 

Timer,  20 

Translations,  229 

Trend  line  analysis,  35 

Tricolor  game,  158 

True  Annual  Interest  Rate  Program, 
47 

Tuknanavuhpi  game,  162 

Tutor,  computer,  128 

Typesetting,  60 

Typing  speed,  231 

U 

Universal  Decision  Making  Program, 

13 
Use  of  computers  in  the  professions, 

75 
Utility  programs,  225 


Vector  Addition  Program,  92 
Venus,  152 

Video  games,  157,  188 
Vocal  interface,  201 
Voice  control,  201,  202 

W 

Warrants,  54 

Weather  forecasting,  105 

Weight,  15 

William  Tell  Program,  196 

Wind  Chill  Calculator  Program,  107 

Word  games,  1 79 

Word  processing  6,  61 

World  Series  Predictor  Program,  99 

Writing,  230 


Yagi  Antenna  Design  Program,  118 
Young  children,  programs  for,  183 
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1001  Things  to  Do 
with  Your  Commodore  64 

If  you  are  intrigued  with  the  possibilities  of  the  programs  included  in  7007  Things  to  Do  with  Your 
Commodore  64  (TAB  Book  No.  1836),  you  should  definitely  consider  having  the  ready-to-run  disk 
containing  the  software  applications.  This  software  is  guaranteed  free  of  manufacturer's  defects.  (If 
you  have  any  problems,  return  the  disk  within  30  days,  and  we'll  send  you  a  new  one.)  Not  only  will 
you  save  the  time  and  effort  of  typing  the  programs,  the  disk  eliminates  the  possibility  of  errors  that 
can  prevent  the  programs  from  functioning.  Interested? 

Available  on  disk  at  $24.95  for  each  disk  plus  $1.00  each  shipping  and  handling. 
I'm  interested.  Send  me: 


disk  for  Commodore  64  (641 8S) 

TAB  BOOKS  catalog 

Check/Money  Order  enclosed  for  $24.95 

plus  $1 .00  shipping  and  handling  for  each  disk  ordered. 

VISA  MasterCard 


Account  No.   Expires 

Name 


Address 

City    State  Zip 

Signature    

Mail  To:    TAB  BOOKS  INC. 
P.O.  Box  40 
Blue  Ridge  Summit,  PA  17214 

Or  order  today  toll  free  1-800-233-1128 

PA  add  6%  sales  tax.  Orders  outside  U.S.  must  be  prepaid  with  international  money  orders  in  U.S.  dollars. 

TAB  1836 


1001  Things  to  Do  with  Your  Commodore  64 

By  Mark  R.  Sawusch  and  Tan  A.  Summers 


TAB's  all-time  bestselling  computer  idea  book  .  .  .  now  in  a  brand  new, 
revised  edition  for  the  Commodore  64! 

"An  amazing  collection  of  practical  ideas  and  programs . .  .the  book  is 
really  overwhelming  . . .  enough  ideas  to  keep  you  and  your  computer 
busy  for  01 100100  binary  years!  80  Microcomputing 

"...  a  marvelous  guide  to  personal  computer  use . .  .an  indispensable 
reference  that  will  open  up  new  horizons  for  you  and  your  computer." 

Mother  Earth  News 

"...  a  good  source  of  m&teriatfor  programmers  who  write  games,  or  who 
like  variety,  or  who  run  out  of  ideas."  Creative  Computing 

Here's  a  gold  mine  of  exciting  ideas . . .  more  than  1 000  ways  you  can  use 
your  Commodore  64  for  applications  ranging  from  household  recordkeeping 
and  budgeting  to  investment  analysis  and  business  management— from 
game  playing  and  hobby  use  to  scientific  and  educational  applications. 

Best  of  all,  this  is  a  book  that  not  only  includes  a  treasure  trove  of  ideas  for 
getting  more  from  your  computer ...  it  provides  you  with  actual  programs, 
printouts,  flowcharts,  diagrams,  and  step-by-step  instructions  for  using  your 
micro  in  practical  and  just-for-fun  ways. 

You  can  use  your  micro  to  forecast  the  weather  ...  to  help  your 
youngsters  make  better  grades  in  school ...  to  calculate  camera  settings ...  to 
control  household  appliances  or  security  systems ...  to  manage  your  invest- 
ments ...  to  add  excitement  to  your  model  railroading  hobby  ...  to  translate 
shorthand  notes ...  to  handle  practically  every  kind  of  business  recordkeeping 
chore  ...  to  solve  electronics  problems . . .  and,  of  course,  to  play  games!  In 
fact,  you'll  find  more  ideas  and  programs  for  using  your  microcomputer  than 
you'd  ever  have  thought  possible  .  ,  .  even  ways  to  make  money  with  your 
computer! 

Mark  R.  Sawusch  is  an  experienced  microcomputer  programmer,  writer, 
and  a  pioneer  in  the  personal  computing  field.  Tan  A.  Summers  is  a  freelance 
writer  and  computer  programmer. 


Send  for  FREE  TAB  Catalog  describing  over  1200  current  titles  in  print. 
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TAB  BOOKS  IRC. 

Blue  Ridge  Summit,  Pa.  17214 

PRICES  HIGHER  IN  CANADA 


